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PREFACE 


This manual describes the FORTRAN Extended Version 4 
to FORTRAN Version 5 Conversion Aid Program, which is 
designed to produce FORTRAN Version 5 source 
statements from FORTRAN Extended Version 4 input* 
Wherever possible, the output from the conversion 
program complies with the American National Standards 
Institute FORTRAN (called FORTRAN 77) as described in 
ANSI X3.9-1978* If the conversion program produces any 
nonstandard statements, the user has the option with the 
FORTRAN Version 5 compiler to flag those statements. 


The reader shouLd have knowledge of FORTRAN Extended 
Version 4 and should only convert programs that have 
compiled and run successfully under FORTRAN Extended 
Version 4. 


The conversion program runs under the following 
operating systems: 

NOS 1 for CONTROL DATA® CYBER 170 Series; 
CYBER 7D Models 71, 72, 73, and 74; and 6000 Series 
Computer Systems 

NOS/BE 1 for CDC ® CYBER 170 Series; CYBER 70 
Models 71, 72, 73, and 74; and 6000 Series Computer 
Systems 

SCOPE 2 for CONTROL DATA®CYBER 170 Model 
176, CYBER 70 Model 76, and 7600 computer systems 

Related information can be found in the publications 
listed below* 


Publication 

FORTRAN Extended Version 4 Reference Manual 
FORTRAN Version 3 Reference Manual 
Modify Reference Manual 
SCOPE Version 2 Reference Manual 
Update Version 1 Reference Manual 


Publication Number 
60497800 
60481300 
60450100 
60342600 
60449900 


I 


CDC Manuals can be ordered from Control Data Corporation, Literature and Distribution 
Services, 308 North Dale Street, St* Paul, Minnesota 55103. 


This product is intended for use only as described in 
this document* Control Data cannot be responsible for 
the proper functioning of undescribed features or 
parameters. 
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INTRODUCTION 


1 


The FORTRAN Extended Version 4 to FORTRAN 
Version 5 Conversion Aid Program (Conversion Aid) is 
designed to produce translations that conform as closely 
as possible to the FORTRAN Version 5. FORTRAN 
Version 5 is based on the ANSI FORTRAN 77 language. 
Some of the major differences in FORTRAN 77 include 
[E-THEN-EL$E constructs, the PARAMETER statement, 
and CHARACTER data. To make programs more 
portable, the standard now incorporates such extensions as 
PRINT, ENTRY, and alternate return. 

FORTRAN Version 5 (FORTRAN 5) includes the complete 
FORTRAN 77 standard, but has additional special 
features. The FORTRAN 5 compiler can, as an option, 
flag any nonstandard statements. Obsolete or little-used 
features have not been included in FORTRAN 5. A few 
features have changed functionally, but not syntactically. 
These include the computed GOTO and the DO loop. The 
C$ DEBUG package has been discontinued, but CYBER 
Interactive Debug is availahle and provides a powerful 
debug facility. 

Over 50 differences exist between FORTRAN Extended 
Version 4 (FORTRAN 4) and FORTRAN Version 5, but 
most of these differences can be automatically converted 
with little or no manual effort. The conversion program 
flags any statements it cannot convert. 


Input for the conversion program can be either a standard 
or sequenced source file or an Update/Modify COMPILE 
file. The Conversion Aid produces a listing and a source 
output file. The complete listing contains the original 
programs, the converted programs, the Update/Modify 
directives, and messages. The messages Identify 
statements that must he manually changed, the type of 
translation performed, or the type of errors. The 
conversion program has a variety of options for processing. 


The Conversion Aid converts only valid FORTRAN 4 
statements as described in the FORTRAN Extended 
Version 4 Reference Manual, and does not convert 
undocumented features. Programs depending on a 
particular FORTRAN 4 implementation might not produce 
the same results after conversion. 


The Conversion Aid does not perform extensive syntax 
analysis. Since its purpose is to detect language 
differences, it might ignore certain syntax errors. Input 
to the conversion program should consist only of programs 
that have compiled and executed correctly under 
FORTRAN 4. 
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CONVERSION AID OPERATION 


2 


Valid FORTRAN Extended Version A (FORTRAN 4) source 
statements can be input to the FORTRAN Extended 
Version A to FORTRAN Version 5 Conversion Aid 
Program (Conversion Aid) in the following forms: 

FORTRAN A source images on a specified file 
(standard or sequenced) 

COMPILE file from Update/Modify 


The output from the Conversion Aid consists of a listing 
and a source output file containing FORTRAN Version 5 
(FORTRAN 5) statements. The listing provides 
information about the conversion, including messages, and 
the source output file contains the converted program or 
the changes necessary for input to Update/Modify. The 
FA5 control statement is used to call the Conversion Aid, 
specifying the type of input to be used and the type of 
output to be produced. 

INPUT TO CONVERSION AID 

The Conversion Aid reads a single input file and processes 
it according to the parameters on the FA5 control 
statement. The I parameter is used for the input file 
name. The SI parameter specifies whether the file is 
sequenced. The input file can have more than one 
program unit; the Conversion Aid recognizes the end of 
one program unit and the beginning of another. 

The input file can be in one of three formats: sequenced, 
standard, or COMPILE. Sequenced lines have line 
numbers in columns 1 through 5. Standard lines do not 
have line numbers in the first five columns, but might 
have statement labels. The statements for standard lines 
are coded in columns 7 through 72; any information can 
be in columns 73 through 00. Lines in COMPILE format 
have the 90-column format; this format is the same as 
standard format, except that information also appears 
after column 00. A file cannot contain programs in both 
sequenced format and COMPILE format. 


SEQUENCED INPUT 

A file is treated as sequenced if the SI parameter is 
selected, or if columns 1 through 5 on the first line of 
input contain a number and SI=0 is not specified. See the 
time-sharing mode and SEQ parameter in the FORTRAN 
Extended Version A Reference Manual. Both standard 
format and COMPILE format are considered 
unsequeoced. If the file is unsequenced and any column 
after 80 contains a nonblank character, the file is 
assumed to be a COMPILE file. 


UPDATE/MODIFY INPUT 

The Conversion Aid can read a COMPILE file and produce 
an output file that can be used to update the old program 
library from which the COMPILE file was generated. 


When the PO=M parameter is selected and the input is a 
COMPILE file, the Conversion Aid generates an 
Update/Modify directive for each statement that needs to 
be translated. The directive is a command to delete the 
original statement and insert the translated statement. 


UPDATE/MODIFY OUTPUT 

For a manual change, the original statement is listed as a 
replacement line, but Is not translated. The Conversion 
Aid generates a directive to delete the original statement 
and to replace it with the same untranslated statement. 
If the user changes the statement before a library update, 
then the user must remove the untranslated statement 
from the source output file and replace it with the new 
statement. 


Corrective Directives 

The Conversion Aid generates, in most cases, a directive 
for each change. Because it is impossible, however, to 
determine the deck names from the COMPILE file, DECK 
directives are not generated; MODIFY users must 
generate these directives. 


Common Directives 

A programmer can use three directives to update a source 
program library containing common decks. The directives 
have the characters C$ in columns 1 and 2, and a keyword 
beginning in column 7. The three keywords are BEGCOM, 
ENDCOM, and LIST. Without these directives, every time 
a common deck appears in a COMPILE file, the 
Conversion Aid translates the common deck and provides 
directives to update the old program library. If a common 
deck appears more than once, the Conversion Aid 
generates duplicate directives. The duplicate directives 
will produce errors during an update of the old program 
library. 

Using the LIST directive, the programmer can direct the 
Conversion Aid to translate the common decks only once. 
Then the old program library will be updated correctly. 

BEGCOM and ENDCOM mark the beginning and ending of 
a common deck in the program library. The LIST 
directive is used in the calling program. If LIST is 
omitted, or if LIST{C=0) is specified, the lines between 
BEGCOM and ENDCOM are not converted. If LIST(C) or 
LIST(C^l) appears, the lines are converted. To convert 
any common deck, LIST must precede *CALL, the 
directive on the program library to call a common deck. 
Examples of common deck conversion are shown in 
figures 2-1 and 2-2. 
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*COMDECK NAME1 

cs 

BEGCOM 

(source 

lines) 

c$ 

ENDCOM 

•COMDECK NAME2 

C$ 

BEGCOM 

(source lines) 

c$ 

ENDCOM 


Figure 2-1. Common Decks in a Program Library Example 


c$ 

PROGRAM P 
LIST(C) 


*CALL 

NAME1 

(converts NAME1) 


END 



PROGRAM Q 


•CALL 

NAM El 

(does not convert NAME1) 

C$ 

•CALL 

C$ 

LIST(C=0) 

NAME1 

LIST (C) 

(does not convert NAME1) 

•CALL 

NAME2 

(converts NAME2) 


END 



Figure 2-2. Programs with Common Decks Example 


possible. Statements that are correct for FORTRAN 5 
remain unchanged. When a statement must be changed, 
leading and embedded blanks are retained. If an item in a 
statement is deleted, the blanks following are also 
deleted. If a statement Is added in standard format, it 
begins in column 7 and ends In column 72 (in sequenced 
format, the statement ends in column 80). If a statement 
must be continued, it is broken at a delimiter and 
continued on the next line, beginning in column 7. 

The conversion program can produce either sequenced or 
unsequenced output from sequenced or unsequenced 
input* The SO parameter controls sequenced output* 
When the Conversion Aid converts sequenced input to 
unsequenced output, the output statements are in standard 
format. When the Conversion Aid converts unsequenced 
input to sequenced output, the output statements are in 
sequenced format. 

Wherever possible, embedded comments are retained in 
the FORTRAN 4 statements. If the original FORTRAN 4 
statements are totally restructured so that the comments 
have questionable value, the comments are repositioned in 
front of the original statements. Comments between 
statements remain in their original positions. 

The Conversion Aid generates a comment header for each 
program unit. The header appears in both the listing and 
the source output file. The header information states 
which version of the Conversion Aid converted the 
program units and the version of FORTRAN 5 for which 
the converted programs are valid. 


LISTING 

The user can select one of four output formats for the 
listing, or can suppress the listing altogether. One of the 
choices, the full listing, includes a copy of the input file. 
The other formats include only statements changed or 
added by the Conversion Aid and statements requiring 
manual action. 

In the listing, a source statement is followed by any 
Conversion Aid messages applying to it. The messages are 
of three types: automatic conversion, manual action, and 
error diagnostics. The messages are described in 
appendix B. 

For each action that the Conversion Aid takes, it prints a 
symbol at the end of the input line to indicate what the 
action was. The meanings for the three symbols are: 

-I- Statement inserted. 

-R- Statement replaced previous statement. 

-D- Statement deleted. 

The Conversion Aid writes a message summary at the end 

of each program unit. 


OUTPUT FROM CONVERSION AID 

The Conversion Aid produces two output files: a listing 
and a source output file. The listing is formatted for 
printing; a line has a maximum of 137 characters, 
including a carriage control character in column 1. The 
source output file is formatted into 80-column lines. The 
output lines retain the original format as much as 


Full Listing 

The full listing has two parts. The first part is a copy of 
the input file. The second part is in one of two formats, 
depending on the input. If the input is a COMPILE file, 
the second part is exactly the same as the Update/Modify 
listing. If the input file contains sequenced or standard 
lines, the second part contains: 

Unchanged lines 
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Changed and added lines 
Lines requiring manual action 
Error diagnostics 

A statistical summary of Conversion Aid processing 


Short Listing 

The short listing is like the second part of the complete 
listing, except that the unchanged statements are not 
included* The output contains: 

Changed and added lines 

Lines requiring manual action 

Error diagnostics 

A statistical summary of Conversion Aid processing 

Update/Modify directives are not listed, even if the input 
is a COMPILE file. 

Error Listing 

The error listing contains; 

Statement lines requiring manual action 
Error diagnostics 

Update/Modify directives are not listed, even if the input 
is a COMPILE file. 


Modification Listing 

The modification listing is exactly the same as the second 
part of the full listing, except that Update/Modify 
directives precede the statements. This format of the 
listing is used only when the input is a COMPILE file. The 
modification listing contains: 

Changed and added lines 

Lines requiring manual action 

Error diagnostics 

A statistical summary of Conversion Aid processing 


Note that if the user ignores lines requiring manual 
action, the lines are deleted and reinserted, so that there 
is no net change. If the user wishes to change the line, 
the replacement line can be used as a template to create 
a new line. 


SOURCE OUTPUT FILE 

The user can select one of three formats for the source 
output file, or can suppress creation of the file. The 
source output file does not include any Conversion Aid 
messages except for the comment header. 


Full Source Output File 

The full source output file is generated when input is a 
sequenced or standard file. This output is a complete 
program unit, ready for compilation under FORTRAN 5 
except for any statements requiring manual inspection or 
action. The full file contains: 

Comment header generated by the Conversion Aid 

AH unchanged lines 

Changed lines 

Added lines 

Lines requiring manual action or inspection 


If the input file is a COMPILE file and the user requests a 
full source output file, the Conversion Aid generates a 
modification file. 

Short Source Output File 

The short source output file consists only of changed 
statements rather than complete program units. The 
short source output file is used for manually updating 
FORTRAN 4 source programs and contains: 

Changed lines 

Added lines 

Lines requiring manual action or inspection 

Modification Source Output File 

The modification source output file is generated when the 
input is a COMPILE file. If the input file is sequenced or 
in standard format and a modification source output file is 
requested, the Conversion Aid generates a message but no 
output. The output is intended for an Update/Modify 
program library and contains directives. 

Because it is impossible to determine the DECK names 
from COMPILE file output, the MODIFY user must insert 
the necessary DECK directives. 


COMPASS SUBROUTINES 

COMPASS subroutines can appear in the output without 
change. If LQ-F is selected, COMPASS subroutines are 
written directly to the listing. If PO~F is selected, 
COMPASS subroutines are written to the source output 
file. 


F45 CONTROL STATEMENT 

The Conversion Aid is called with a control statement 
that conforms to operating system syntax; the statement 
cannot be continued on another line. The control 
statement takes one of the following three forms: 

F45. 
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Cl 


F45,p^ ? p2,...,p^. 

F45(p^,p2,...,p^) 

The optional parameters, pj, can be in any order. 

A variety of options can be specified in the parameter 
list. No parameter can be used more than once. For any 
omitted parameters, default values are supplied. Specific 
default values are given with the description of each 
parameter. An invalid or duplicate parameter causes the 
job to terminate abnormally. Comments can follow the 
terminating right parenthesis or period. 

More than one program can be converted by a single F45 
call. When several programs are to be converted, the 
programs should follow each other without separation. 
The Conversion Aid recognizes the end of each program 
unit. 

In the following parameter descriptions, Ifn denotes a file 
name, which is one through seven letters and digits 
beginning with a letter. 


CC - COMMENT CONTROL 

FORTRAN 4 recognizes a statement with a $ in column 1 
as a comment; FORTRAN 5 does not. The Conversion Aid 
changes the $ to a C or an *, as specified by the CC 
parameter. The options are: 

omitted 

Change $ indicating a comment line to C. 

CC 

Same as CC=*. 

CC=C 

Same as omitted. 

CC=* 

Change $ indicating a comment line to *. 


O - CORRECTION IDENTIFIER FOR 
UPDATE/ MODIFY 

The Cl parameter specifies an update correction identifier 
for a run with a COMPILE file as input. If LO=M or LO=F 
is also specified, the identifier is written on the listing. If 
PO=M or PO=F is specified, the identifier is written on 
the source output file. Unless at least one of the options 
LO=M, LO-F, PO=M, or PO=F is specified, the 
Cl parameter is ignored. The options are: 

omitted 

Generate an Update/Modify directive of the 
form: 

*IDENT dddhhmm 

The ddd is the number of the day of the year. 
The hh is the hour of the day and mm is the 
minutes. 


Same as omitted. 

CI=0 

Do not generate an *IDENT directive, even if 
LO=M, LO=F, PO=M, or PO=F is specified. 

Cl^idname 

Generate an Update/Modify directive of the 
form: 

♦IDENT idname 

The idname is the correction identifier to be 
assigned to this set. Because this parameter 
appears on a control statement, the operating 
system limits idname to seven characters (any 
combination of letters and digits). 

DD - DELETE C$ DIRECTIVES 

Both FORTRAN 4 and FORTRAN 5 provide compiler 
directives that begin with a C$ in columns 1 and 2. 
FORTRAN 5 does not recognize the FORTRAN 4 
directives; the FORTRAN 4 directives would produce an 
error under FORTRAN 5. The Conversion Aid converts 
the FORTRAN 4 directives as specified by the DD 
parameter. The options are: 

omitted 

Delete all statements with a C$ in 
columns 1 and 2. 

DD 

Same as omitted. 

DD=0 

Convert statements with a C$ in 
columns 1 and 2 to comments by replacing the $ 
' with a blank. 

ET - EXIT TERMINATION 

The ET parameter specifies exit termination activity. 
The options are: 

omitted 

Terminate normally, no matter what conditions 
exist in the Input file. 

ET 

Terminate normally only if none of the following 
conditions exist: FORTRAN syntax errors, 
statements requiring manual action (not just 
inspection), or requests for Update/Modify 
output files when input is not a COMPILE file. 
The Conversion Aid aborts if any of these 
conditions exist, and system error exit processing 
then takes over. 

ET-Q 

Same as omitted. 
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I - SOURCE INPUT FILE 


The I parameter specifies the source input file. The 
options are: 

omitted 

Same as I=INPUT. 

I 

Same as I=COMPILE, 

I=Ifn 

Read source programs from the file named Ifn. 

L - LISTING FILE 

The L parameter specifies the listing file. The options are; 
omitted 

Same as L=OUTPUT. 

L 

Write listing on the file named LIST. 

L=G 

Da not produce listing. 

L=tfn 

Write listing on the file named Ifn, 

LO - LISTING OPTIONS 

The LO parameter specifies listing options. The options 
are: 

omitted 

Produce a short listing containing: 

Translated and added lines 

Lines requiring manual action 

Conversion Aid messages and error 
diagnostics 

Note that the Conversion Aid does not list 
Update/Modify directives, even if input is a 
COMPILE file. 

LO 

Produce a full listing with two parts: a copy of 
the input file and a listing that depends on the 
type of input. The first part of the listing is 
always produced and consists of a copy of the 
input file. If the input file is standard or 
sequenced, the second part of the listing contains: 

Lines that require no change 

Changed and added tines with the related 
Conversion Aid message 


Lines requiring manual action with the 
related Conversion Aid message 

Messages and error diagnostics 

If input is a COMPILE file, the second part of the 
listing contains: 

Generated Update/Modify directives 

Translated and added lines with the related 
Conversion Aid message 

Lines requiring manual action with the 
related Conversion Aid messages 

Messages and error diagnostics 

LO=S 

Same as omitted. 

LO sF 

Same as LO. 

LO=E 

Produce an error listing containing: 

Lines requiring manual action and related 
Conversion Aid messages 

Error diagnostics 

Nbte that the Conversion Aid does not list 
Update/Modify directives, even if input is a 
COMPILE file. 

LO=M 

Produce a modification listing containing: 

Generated Update/Modify directives 

Translated and added lines 

Lines requiring manual action 

Messages and error diagnostics. 

LO^M is meaningful only if the input is a 
COMPILE file, 

MC - MASTER CONTROL CHARACTER 

The special characters +, /, and = must be specified 

with the delimiter $; the special characters are master 
control characters used in Update/Modify. Eor example, 
to specify then MC =t/$? to specify $, then use two 
consecutive $ such as MC=$$$$- 

omitted The master control character Is *. 

MC Same as omitted. 

MC=$char$ The master control character is char. 
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MD - MACHINE-DEPENDENT USAGES 


PD=6 


The MD parameter specifies machine-dependent usages. 
The options are: 

omitted 

Ignore the machine-dependent constructs. 

MD 

Issue a manual change message for each 
statement that contains at least one 
machine-dependent construct. The Conversion 
Aid recognizes the following machine-dependent 
constructs: 

Hollerith data 

Shifts and masks 

Intrinsic functions dealing with bit 
manipulation: XOR, OR, AND, COMPL, and 
LOCF 

Octal and hexadecimal data 

ENCODE and DECODE statements 

BUFFER IN and BUFFER OUT statements 

If the MD parameter is specified, the Conversion 
Aid flags statements containing these constructs, 
warning the programmer that they might have to 
be changed if the program is ever transferred to 
another computer. 

P - SOURCE OUTPUT FILE 

The P parameter specifies the source output file. The 
options are: 

omi tted 

Da not produce any source output. 

P 

Write source output on the file named PUNCH. 

P=0 

Same as omitted. 

P=lfn 

Write source output on the file named Ifn. 

PD - PRINT DENSITY 

The PD parameter specifies print density- The options are: 
omitted 

Produce a listing with a print density of six lines 
per inch. 

PD 

Produce a listing with a print density of eight 
lines per inch. 


Same as omitted. 

PD=a 

Same as PD. 

PO - SOURCE OUTPUT OPTIONS 

This parameter selects the data to be included on the 
source output file. If the P parameter is not specified or 
if P=0 is specified, the Conversion Aid ignores this 
parameter and does not produce a source output file. 

omitted 

Produce a short source output file containing: 

Lines requiring manual action 
Changed lines 
Added lines 

The short source output file is intended for 
manually updating the original source decks. 
This output is not suited for direct input to the 
compiler. 


Produce a modification file. If the input is 
standard or sequenced, the Conversion Aid issues 
an error message and produces no output. If the 
input is a COMPILE file, the Conversion Aid 
produces a modification file containing: 

Update/Modify directives to modify the old 
program library 

Changed lines 

Added lines 

' Lines that require manual action 

Except for lines requiring manual action, 
modification output is suitable for modifying an 
old program library- 

PO=S 

Same as omitted. 

PO=F 

Produce a full source output file. If the input is 
a COMPILE file, PO=F is equivalent to PO=M. If 
the input is standard or sequenced, the 
Conversion Aid produces a complete file 
containing: 

Input lines that need no translation 
Changed lines 
Added lines 

Lines that require manual action 

Except for lines requiring manual action, this 
output is suitable for direct input to the compiler. 
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PO=M 

Same as PO. 

SI - SEQUENCED INPUT 

If the Conversion Aid performs automatic selection from 
the first statement of the input file, the selection is 
permanent for the entire run; SI is not reset for individual 
program units* 

Wrong selection is made if the input is unsequenced and 
the first statement is labeled with a number in 
columns 1 through 5. Although legitimate, this case is 
unusual and can be accommodated by explicitly including 
51=0 in the F45 control statement. The explicit value 
overrides the automatic selection. 


omitted 

Determine the input format from 
columns 1 through 5 of the first input line. If 
these columns contain a number, sequenced input 
is assumed. If columns 1 through 5 do not 
contain a number, standard input is assumed. 

SI 

Treat the input as sequenced. [f 
columns 1 through 5 of any statements do not 
contain a sequence number, a diagnostic message 
is issued, and the statement is not translated. 
The user 1 * selection of $1 continues to be honored. 

SI=0 

Treat the input as standard. If 
columns 1 through 5 of any statement contain a 
sequence number, the number is assumed to be a 
statement Label, and the user's selection of SI=0 
continues to be honored, 

SO - SEQUENCED OUTPUT 

This parameter selects sequenced output; it is not 
meaningful for a COMPILE file. The sequence numbers 
for sequenced output are created according to the options 
nl, n2, and n3. The nl option is the first sequence 


number, n2 is the Increment, and n3 is the number of 
digits in the first output sequence number. 

omitted 

Determine the mode of the output file from the 
mode of the input file. If the input file is 
sequenced, omitting the SO parameter is 
equivalent to specifying SO, and the output files 
are sequenced. If the input file is unsequenced, 
omitting the 50 parameter is equivalent to 
specifying 50=0, and the output files are 
unsequenced. 


SO 

Create sequenced output files, with the sequence 
numbers determined by the input file. If the 
input is unsequenced or if the input is sequenced 
but the first line of the input does not contain a 
sequence number, specifying SO is equivalent to 
specifying SO=10/10/5. 

If the input is sequenced and the first line of the 
input contains a sequence number, n3 is set to 
the number of digits in the sequence number in 
the first line of the input file. If n3 is less than 
or equal to 2, nl and n2 are set to 1. If n3 is 
greater than 2, nl and n2 are set to 10. 


50=0 

Create unsequenced output files. 


SO=nl/n2/n3 

All three values must be specified. The greatest 
number of digits that field nl can have is five. 
The largest value that nl can be is 99999. If 
99999 is exceeded in an FA5 run, the next 
sequence number output will begin from zero. 


SUMMARY OF F45 PARAMETERS 

A summary of the parameters for the F45 control 
statement is shown in table 2-1. 


60483000 B 


2-7 




TABLE 2-1, F45 PARAMETER SUMMARY 


Parameter 

Use 

First Default 
(keyword omitted) 

Second Default 
(keyword only) 

Notes 

CC 

Comment Control 

cc=c 

CC=* 

For comments beginning with $■ 

Cl 

Correction Identifier 

Cl-dddhhmm 

Cl-dddhhmm 

Requires L0=M, LO=F, P0=M, or 

PO=F. 

DD 

Delete C$ Directives 

DD 

DD 

Can be DD=0. 

ET 

Exit Termination 

ET=0 

ET 


I 

Source Input File 

I-INPUT 

I=C0MPILE 

Can be 1=1fn. 

L 

Listing File 

L-OUTPUT 

L=LIST 

Can be L*lfn or L=0. 

L0 

Listing Options 

LO=S 

LO-F 

Can be LO“M or L0=E. 

MC 

Master Control 

Character 

MC=$*$ 

MC=$*$ 

Can be MC=$char$, 

MD 

Machine-Dependent 

Usages 

Off 

On 

Issues manual change messages 
for the constructs. 

P 

Source Output File 

P=0 

P=PUNCH 

Can be P=lfn, 

PD 

Print Density 

PD *6 

PD-8 

Applies to listing. 

FO 

Source Output Options 

PO=S 

P0=M 

Can be P0“F. 

SI 

Sequenced Input 

Determine from first 
line 

Sequenced Input 

Can be SI=G for standard input. 

SO 

Sequenced Output 

Depends on SI param¬ 
eter 

Sequenced Output 

Can be SO=0 for standard output, 
or can be SO=nl/n2/n3. 


2*0 


60403000 B 




AUTOMATIC CONVERSIONS 


3 


The FORTRAN Extended Version 4 to FORTRAN 
Version 5 Conversion Aid Program (Conversion Aid) can 
convert most FORTRAN Extended Version 4 
(FORTRAN 4) statements to FORTRAN Version 5 
(FORTRAN 5) statements. Whenever the Conversion Aid 
performs an automatic conversion, a message describes 
what conversion has taken place. 

LANGUAGE ELEMENTS 

Some changes have been made for FORTRAN 5 
nonexecutable statements. The features affected are 
comments, continuation lines, multiple statements, blank 
lines, octal constants, Hollerith constants, and arrays. 
Although most of these conversions are trivial, the long 
Hollerith constant conversion might not produce the same 
results under FORTRAN 5 as in the original FORTRAN 4 
program. 

COMMENT LINES 

FOR TRAN 5 dbes not recognize a comment line beginning 
with a $ in column 1. Under FORTRAN 4, any of the 
characters C, *, or $ in column 1 indicates a comment 
line. Only the characters C and * are valid for 
FORTRAN 5. If a $ in column 1 occurs, the Conversion 
Aid changes it to either a C or an *, depending on the 
control statement parameter CC. 

CONTINUATION LINES 

A FORTRAN 4 continuation line can contain any 
characters in columns 2 through 5, and any character 
other than C, *, or $ in column 1. FORTRAN? requires 
that a contlnuation line have blanks in columns 1 through 
5. The Conversion Aid inserts blanks into columns 1 
through 5 of a continuation line. 

The Conversion Aid inserts blanks into columns 1 through 
5 of a continuation line if the input file is not sequenced. 
For a sequenced file, the program inserts a sequence 
number in the first five columns. 


MULTIPLE STATEMENTS 

Multiple statements on a line are not allowed In 
FORTRAN 5; each statement must begin on a separate 
line. The Conversion Aid converts a line containing 
multiple statements separated by the $ delimiter into 
several lines, each containing a single statement. For 
example, the line: 

A=B $ C=C+1. $ D=A+C 

becomes the three lines: 

A=B 

C=C+1. 

D=A+C 


The converted statements all begin in the same column in 
which the original line began. The superfluous $ 
characters are discarded. 

BLANK LINES IN A CONTINUATION 

FORTRAN 4 interprets a blank source line as an initial 
statement line, which breaks a possible continuation 
sequence. FORTRAN? interprets a blank line as a 
comment line, which does not break a possible 
continuation sequence. This difference is significant 
when a blank line immediately precedes a continuation 
line. Figure 3-1 shows several ways blank lines are 
converted. 


The lines: 

AH3 

(blank line) 
+OD 

are converted to: 
A-B 

(blank line) 
OD 

The lines: 

A=B 

(blank line) 

+ 

+C=D 

are converted to: 
A=B 

(blank fine) 
(blank line) 
OD 

The lines: 

A=B 

+-D 

remain unchanged. 


Figure 3~1. Blank Lines in a Continuation 

When the Conversion Aid encounters a blank source line, 
it continues reading source lines until it finds a nonblank 
line. If the nonblank line is a continuation line, the 
Conversion Aid converts it to an initial line. If the 
nonblank line becomes a blank line when it is converted to 
an initial line, the conversion program repeats the process 
until it finds either a nonblank initial line or a 
continuation line that is converted to a nonblank initial 
line. 
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OCTAL CONSTANTS 

For FORTRAN 4, an octal constant has the form nnnnB. 
For FORTRAN 5, an octal constant has the form 0 ,r nnnn". 
In both cases, nnnn is an octal number with no more than 
20 digits. The Conversion Aid converts nnnnB to 
0 TT nnnn T1 . For example: 

M=23B+5634B 

becomes: 

M=0"23”+0 M 5634" 


LONG HOLLERITH CONSTANTS 

A long Hollerith constant is a character string that is 
longer than 10 characters. FORTRAN 4 permits a long 
Hollerith constant bounded only by the length of a 
statement. FORTRAN 5 does not allow a Hollerith 
constant to exceed 10 characters. FORTRAN 5 provides 
a new data type, CHARACTER, to handle longer strings. 
A Hollerith constant under FORTRAN 5 can appear in 
three contexts: in an expression, in a DATA statement, or 
as an actual argument. The Conversion Aid treats these 
three cases differently. 

In an expression, FORTRAN 4 ignores all characters after 
the leftmost 10 characters. The Conversion Aid truncates 
any long Hollerith constant in an expression to 10 
characters. The resulting constant produces the same 
result under FORTRAN 5 as the original constant did 
under FORTRAN 4. 

In a DATA statement, FORTRAN 4 allows a long 
Hollerith constant to initialize successive elements of an 
array. (See the FORTRAN Extended Version 4 Reference 
Manual for details.) 

If a long Hollerith constant is the last item in a data list, 
the Conversion Aid breaks the long constant into a series 
of 10-character constants, possibly followed by one 
shorter constant. If the long constant is not the last 
constant in the data list, the Conversion Aid truncates the 
long constant to 10 characters. The user should check 
that the code generated by the Conversion Aid produces 
the same results as the original code, especially if a 
procedure depends on trailing zeros. 

When used as an actual argument, a long Hollerith 
constant is not shortened. For the Hollerith forms nH or 
"..." (delimited constant), the Conversion Aid converts 
the constant to a type character constant with the form 
For a long constant with the form nR or nL, the 
Conversion Aid replaces the constant with an integer 
array name that it creates. The array name is: 

Znnnnn 

where nnnnn is a unique combination of digits and 
alphabetic characters. 

In figure 3-2, several Hollerith constants are translated; 
messages are generated for any truncated character 
strings or for any portability problems. 


ZERO-FILLED HOLLERITH CONSTANTS 

Zero-filled Hollerith constants of the following form are 
no longer permitted in FORTRAN 5: 

nRf 

nLf 


where: 

n = unsigned decimal integer representing the 
number of characters in the string including 
blanks. 

f = string of characters; must contain at least one 
character. 

L = left-justified with binary zero fill. 

R = right-justified with binary zero fill. 


These forms are translated as follows: 
nRf nLf 

becomes becomes 

R"f ,r L"f" 

For example: 

3RABC 3LABC 

becomes becomes 

R”ABC” L"ABC" 


UNSUBSCR1PTED ARRAY NAMES 


FORTRAN 4 permits an unsubscripted array name to 
appear in any context where an array or an array element 
could appear. If the unsubscripted array name appears in 
a context where the name could not be interpreted as a 
reference to the entire array, FORTRAN 4 assumes that 
the missing subscripts are all one. If the array name 
appears with fewer subscripts than in the DIMENSION or 
type statement which defined the size of the array, 
FORTRAN 4 assumes that all the missing subscripts have 
a value of one. 


INTEGER CHARS(2), STRING(3) 

DATA CHARS/17R17CHARACTERSTRING/ 

STRING{1) = 14HLONGCHARSTRING 
STRING{2) = "CHAR" "STRING" 

STRING{3) = "TENCHARAC M ". 

CALL MESSAGE(21 LTHIS PROGRAM RAN OX.) 

CALL MESSAGE(6HSTR I NG) 

CALL MESSAGE(4LCHAR) 

is converted to: 

INTEGER CHARS{2), STRINGI3) 

INTEGER ZZZ001 (3) 

DATA CHARS/10R17CH ARACTE,7 R RSTR I NG/ 

DATA ZZZ001 /10LTHIS PROGR, 10LAM RAN OX, 1 L/ 
STRING(1)= 10HLONGCHARST (diagnostic message) 
STRING(2)= "CHAR r1 "STRIN" (diagnostic message) 

STRING(3)= m TENCHARAC.(diagnostic message) 

CALL MESSAGE(ZZZ001) 

CALL MESSAGEf"STRING") 

CALL MESSAGE(4LCHAR) 


Figure 3-2. Long Hollerith Conversion 
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FORTRAN 5 permits an unsubscripted array name to 
reference an entire array, but requires that any reference 
to a single array element have the same number of 
subscripts as in the DIMENSION or type statement 
defining the size of the array. This means that under 
FORTRAN 5, any unsubscripted array name refers to the 
entire array. 


The Conversion Aid adds the implied subscripts to any 
array name appearing in a context not referring to the 
entire array. For example: 


DIMENSION A(1Q), AA<2,4), AAA(5,5,5) 
0~ A 

BB= AA(3) 

BBB= AAA(3,2) 


is translated to: 

DIMENSION A(10), AA(2,4), AAA(5,5,5) 

B= A(l) 

BB= AA(3,1) 

BBB= AAA(3,2,1) 

EXPRESSIONS AND ASSIGNMENT 
STATEMENTS 

The major differences in expressions and assignment for 
FORTRAN S include the order in which exponentiation 
factors are evaluated, and a restriction on complex 
operands in relational expressions. Abbreviations for 
logical expressions and signed typeless operands are not 
allowed. The Conversion Aid makes the necessary 
changes. 
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EXPONENTIATION 

FORTRAN 4 interprets successive exponentiation factors 
from left to right; FORTRAN 5 interprets from right to 
left. In FORTRAN 4, A**E3**C is evaluated as 

(A**B)**C. In FORTRAN 5, A**B**C is evaluated as 
A**(B**C). The Conversion Aid adds additional 
parentheses to make the FORTRAN 4 implied 
interpretation explicit, For example: 

A~B**C**D 

is converted to: 

A=(B**C)**D 

COMPLEX OPERANDS IN 
RELATIONAL EXPRESSIONS 

In a relational expression, FORTRAN 4 permits either 
operand to be corpplex for any relational operator. If the 
operator is neither .EG. nor .NF, FORTRAN 4 corrpares 
only the real parts of the operands. FORTRAN 5 permits 
an operand to be complex only if the operator is .EQ. or 
.N£. A relational expression with complex operands and 
any other operator produces an error. 

When a relational expression includes one or more 
complex operands and the relational operator is neither 
.EQ. nor .NE,, the Conversion Aid changes each complex 
operand to a real operand by using the intrinsic function 
REAL. For example, the statements: 

COMPLEX C, CC 


IF(C.GT,CC) GO TO 15 
would be converted to: 
COMPLEX C, CC 


F(REAL(C),GT.REAUCC» GOTO 15 


LOGICAL EXPRESSIONS 

FORTRAN 4 allows the abbreviations .A., .O,, .N., and .X. 
for the logical operators .AND., .OR., .NOT., and .XOR.; 
it allows .T. and .E. for the truth values .TRUE, and 
.FALSE. FORTRAN 5 does not allow these 
abbreviations. The conversion program expands these 
abbreviations. 


SIGNED TYPELESS CONSTANTS AND OPERANDS 

FORTRAN 4 allows a typeless operand to be signed; 
FORTRAN 5 does not. A typeless operand is an octal 
constant, a Hollerith constant, or a result of one of the 
intrinsic functions SHIFT and MASK. In a DATA 
statement, FORTRAN 5 interprets a sign preceding a 
typeless constant as an operator and diagnoses an error. 
If the sign of the typeless operand in a DATA statement is 
plus, the Conversion Aid deletes the sign; if the sign is 
minus, the Conversion Aid replaces the operand with its 
60-bit ones complement value. For example: 


DATA A, B/11Q, +2228/ 

DATA C/-3330/ 

is translated to: 

DATA A, B/Cm 1 ', G"222 ( 7 

DATA C/0 ,f 77777777777777777444"/ 

Notice that the B suffix for octal constants is also 
changed 

In an assignment statement or statement function 
definition, the Conversion Aid interprets a unary plus or 
minus operator fallowed by a typeless operand as an 
unsigned constant prefixed by an operator, and converts 
the constant as indicated by the context. The statements: 

WORDl^ +222B 
WORD2^ -3HXYZ 
WORD3= -333 B 
WORD4= -5HIFT(STRING,24) 

are translated to: 

WORDl= 0*222” 

WORD2= CNOT. 3HXYZ) 

WORD3= (.NOT. 0''333") 

WORD4= (.NOT. 5HIFT(5TRING, 24)) 

For a minus sign, the conversion program replaces the sign 
with .NOT. and encloses the negated operand with 
parentheses. If the sign is a plus, the conversion program 
deletes the sign. 


SPECIFICATION STATEMENTS 

FORTRAN 5 does not accept the keyword TYPE or the 
abbreviated form DOUBLE for DOUBLE PRECISION in a 
declaration. Labeled common blocks cannot be identified 
by numbers. The Conversion Aid assigns unique name 
labels to the numbered common blocks. LEVEL 
statements cannot contain variable names unless the 
names'refer to dummy arguments. The variable name is 
replaced with the corresponding common block name. The 
DATA statement syntax has been changed to reduce 
confusion between a list of two real constants and a 
complex variable. Redundant parentheses are prohibited. 


TYPE STATEMENTS 

FORTRAN 5 does not permit the keyword TYPE to 
precede the type declaration keyword in a type 
statement. The Conversion Aid deletes TYPE from any 
type statement where it appears. 

FORTRAN 5 does not allow the abbreviation DOUBLE for 
DOUBLE PRECISION in a type statement. The 
Conversion Aid converts the declaration DOUBLE to the 
declaration DOUBLE PRECISION in any type statement. 
For example, a statement with both TYPE and DOUBLE: 

TYPE DOUBLED,DA 

becomes: 

DOUBLE PRECISION D,DA 
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NUMBERED COMMON BLOCKS 


FORTRAN 4 allows numbered common blocks. 
FORTRAN 5 allows only blank or named common blocks. 
The Conversion Aid converts the number identifying a 
common block to a name derived from that number. First 
the program converts the decimal number to a base 36 
number, then adds the letter Z as a prefix. The digit 0, 
letters A through Z, and digits 1 through 9 are arbitrarily 
used as base 36 digits. The generated common block 
names are unique with respect to each other but might 
duplicate variable names in the program. 


For example, the lines: 

COMMON/0/ A(4) 
COMMON/lOO/ B(3) 
COMMON/19/ C(IOO) 


are converted to the lines: 

COMMON/ZO/ A(4) 
COMMON/ZB1/ B(5) 
COMMON/ZS/ C(100) 


LEVEL STATEMENT 

The LEVEL statement specifies the storage level of 
dummy arguments and variables contained in common 
blocks. The LEVEL statement in FORTRAN 5 specifies 
the storage level of dummy arguments and common 
blocks, but not variables. The Conversion Aid changes a 
reference to a variable to a reference to the common 
block containing that variable. Dummy arguments are not 
changed The Conversion Aid generates only one LEVEL 
statement reference to a common block, even if the 
FORTRAN 4 program contains LEVEL statements 
referencing several items from the same common block. 


The Conversion Aid generates new LEVEL statements 
with common block names for the individually listed 
variables and arrays. A sample LEVEL statement 
conversion is illustrated in figure 3-3. 


DATA STATEMENT 

The FORTRAN 4 DATA statement differs from 
FORTRAN 5 in both the way the list can be identified and 
in the possible format of the list itself. 


FORTRAN 4 and FORTRAN 3 both accept a DATA 
statement of the form: 

DATA vlist/dlist/ 

FORTRAN 5 does not accept the alternate form of the 
DATA statement: 

DATA (vlist-dlist) 

The Conversion Aid converts this format to the standard 
format. In figure 3-4, several data statements are 
converted 


PROGRAM MAIN 
COMMON /BLK2/ A, B, C 
COMMON /BLK3/ R (6) 
EQUIVALENCE (R,S) 
LEVEL 2, A, B, C 
LEVEL 3, S 


SUBROUTINE SUB(D) 
COMMON /BLK2/ AA, BB, CC 
LEVEL 2, AA, D 
LEVEL 2, BB, CC 


is converted to: 

PROGRAM MAIN 
COMMON /BLK2/ A, B, C 
COMMON /BLK3/ R{6) 
EQUIVALENCE <R,S) 
LEVEL 2, /BLK2/ 

LEVEL 3, /BLK3/ 


SUBROUTINE SUB (D) 
COMMON /BLK2/ A A, BB, CC 
LEVEL 2, /BLK2/ r D 


Figure 3-3. Conversion of LETVEL Statements 


DIMENSION A(10), AA(7), AAA(3,3,3) 
INTEGER B 
COMPLEX C, CC(4) 

DATA (R=0.1), (RR=3.45) 

DATA (A{2)=2.2), (AA=7*(0.)) 

DATA (((AAA(I,J,K),1=1,3), J=1,3}, K=1,3) 
+=13*(0.3),14*(0.5)) 

DATA (B=7H{ )()<>() 

DATA {C, CC=<1.1,2.2),4*((3.3,4.4))) 

is converted to: 

DIMENSION A(10), AA{7), AAA(3,3,3) 
INTEGER B 
COMPLEX C, CC{4) 

DATA R/0.1/, RR/3.45/ 

DATA A(2)/2.2/, AA/7 # 0./ 

DATA (((AAA(U,K), 1=1,3), J=1,3), K=1,3) 
+/13*0.3,14*0.5/ 

DATA B/7H( )()()(/ 

DATA C, CC/(1.1,2.2), 4*{3.3,4.4)/ 


Figure 3-4. DATA Statement Conversion 


3-4 


60483000 A 



The data list for the FORTRAN 4 DATA statement 
consists of one or more of the following forms separated 
by commas: 

constant 
(constant list) 
rf*constant 
rf^constant list) 
rf(constant list) 

where rf Is a repeat factor. Redundant parentheses are 
allowed. Under FORTRAN 5, the data Ust in the DATA 
statement consists of one or more of the following forms, 
separated by commas: 

constant 
rf*constant 
rf (const ant list) 

Redundant parentheses are prohibited. 

The FORTRAN 4 data list formats do not distinguish 
between a single complex constant and a constant list 
consisting of two real constants surrounded by parentheses. 

FORTRAN 4 can interpret the form (constant list), where 
constant list is a pair of real constants, as either a single 
complex constant or two real constants. If the 
corresponding data item is a complex variable, the form 
(constant list) specifies a complex constant. If the 
corresponding data items are two real variables, the form 
(constant list) specifies two real constants. Under 
FORTRAN 5, the form (constant list) specifies a single 
complex constant; therefore, if the corresponding data 
items are two real variables, the Conversion Aid removes 
the redundant parentheses. The form: 

(real constant, real constant) 

is changed to: 

real constant, real constant 

The form ((constant list)) is a complex constant in 
FORTRAN 4. The Conversion Aid removes the redundant 
parentheses to produce a FORTRAN 5 complex constant 
with the form (constant list). 

The FORTRAN 4 form rf*(con$tant list) always specifies 
a repeated list of two real constants; the form 
rf*f( const ant list)) specifies a repeated complex constant. 
For FORTRAN 5, the form rf*(constant List) specifies a 
repeated complex constant, and the form rffconstant List) 
specifies a repeated list of two real constants. The 
Conversion Aid converts the forms: 

rf*(real constant, real constant) 
rf*((real constant, real constant)) 
rf*(constantl, constant2, constant?) 

to the forms: 

rffreal constant, real constant) 
rf*(real constant, real constant) 
rf (const anti, const an t2, constant?) 

The Conversion Aid removes unnecessary parentheses. 
For example: 

(constant 1, constant2, const ant3) 
becomes: 

constant!, constant2, constant? 


FLOW CONTROL STATEMENTS 

Flow control statements affect the execution of a 
program. The FORTRAN 4 statements that are changed 
or absent in FORTRAN 5 include computed GOTO, 
two-branch arithmetic IF and logical IF, PAUSE, STOP, 
and END. 

For the computed GOTO, if the index variable has an 
integer value less than one or greater than the number of 
statement labels in parentheses, execution of the 
statement in FORTRAN 5 does not produce a fatal error. 
FORTRAN 5 does not support any two-branch IF 
statements. PAUSE, STOP, and END have minor changes. 


COMPUTED GOTO STATEMENTS 

If a computed GOTO statement has a variable or 
expression with an integer value less than one or greater 
than the number of statement labels in parentheses, 
FORTRAN 4 programs abort with a fatal error; programs 
compiled by FORTRAN 5, however, continue with the 
next executable statement following the computed GOTO. 

To duplicate FORTRAN 4 behavior, the Conversion Aid 
adds a call to an error routine, GOTOER. Tne routine 
issues a message and aborts the program when the integer 
variable is outside the legal range. If the computed GOTO 
is not part of a logical F statement, the Conversion Aid 
inserts the new statement CALL GOTOER immediately 
after the computed GOTO statement. For example: 

GO TO (10, 11, 15, 20) JUMP 

is converted to the two statements: 

GO TO (10, 11, 15, 20) JUMP 
CALL GOTOER 

If the computed GOTO is part of a logical F statement, 
the Conversion Aid inserts the new statement CALL 
GOTOER as part of the F loop. For example: 

F (A.LT.B) GOTO (10, 11, 20) JUMP 

Is converted to the statements: 

F(A.LT.B) THEN 
GOTOUO, 11, 20) JUMP 
CALL GOTOER 
ENDF 

The block F construction is a FORTRAN 5 feature. 


ARITHMETIC IF STATEMENTS 

FORTRAN 4 allows the expression in an arithmetic F 
statement to be complex; only the real part of the 
expression is tested FORTRAN 5 does not allow the 
expression to be complex. 

The Conversion Aid changes a complex expression in an 
arithmetic F statement to a real expression by using the 
intrinsic function REAL. For example: 

COMPLEX C, CC 


F(C+CC)I0,20,30 
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becomes: 

COMPLEX C, CC 


IF(REAL(C+CC))l 0,20,30 


TWO-BRANCH ARITHMETIC IF STATEMENTS 

FORTRAN 5 does not permit a two-branch arithmetic IF 
statement. The Conversion Aid converts a two-branch 
arithmetic IF statement to a three-branch statement. For 
example: 

IF(X-Y)15,17 

becomes: 

IF(X-Y)15,17,15 

The first branch is used again as the third branch. 


TWO-BRANCH LOGICAL IF STATEMENTS 

FORTRAN 5 does not permit a two-branch logical IF 
statement. The Conversion Aid changes each two-branch 
logical IF statement to a standard form logical IF 
statement that produces the same result. For example: 

IF (TEST)601,604 

becomes: 

IF(TEST)GOTO 601 
GOTO 604 


PAUSE AND STOP STATEMENTS 

Both FORTRAN 4 and FORTRAN 5 allow the programmer 
to append a comment to a PAUSE or STOP. The comment 
is sent to the dayfite when the statement is executed. 
Under FORTRAN 4, the comment is specified by a 
Hollerith constant; under FORTRAN 5, the comment is 
specified by a character constant. The Conversion Aid 
changes each constant in a PAUSE or STOP statement to 
a FORTRAN 5 character constant. For example: 

STOP "THE END" 

becomes: 

STOP T THE END* 


END STATEMENT 

FORTRAN 4 diagnoses the absence of an END statement 
v from the final program unit of a compiler input file and 
adds the END statement. FORTRAN 5 considers the 
absence of an END statement as a fatal error. The 
Conversion Aid inserts an END statement after the final 
program unit of the input file if none was included. 

FORTRAN 5 does not allow an END statement to be 
continued. The Conversion Aid replaces a continued END 
statement with one that is complete in one line. 


OUTPUT STATEMENTS 

Certain differences exist between FORTRAN 4 and 
FORTRAN 5 output statements. Under FORTRAN 5, a 
WRITE statement requires a unit number; PRINT can only 
be used when data is sent to the OUTPUT file. Any 
Hollerith constant in a list-directed output statement 
must be changed to a character constant. 

WRITE/PRINT/PUNCH STATEMENTS 

FORTRAN 4 and FORTRAN 5 output statements PRINT, 
PUNCH, and WRITE all have the same effect when a unit 
number is specified. PRINT and WRITE have the same 
effect when no unit number is specified. FORTRAN 5 
requires that WRITE be used for output whenever a unit 
number is specified, and that PRINT be used whenever no 
unit number is specified and data is to be sent to the file 
OUTPUT. Table 3-1 shows the conversion for output 
statements. 


TABLE 3-1. CONVERSION OF OUTPUT STATEMENTS 


FORTRAN 4 Statement 

Converted to 

FORTRAN 5 Statement 

WRITE fn 

PRINT fn 

WRITE fn,iolist 

PRINT fn,iolist 

WRITE *,iolist 

PRINT *,iolist 

PRINT (u,fn) 

WRITE (u,fn) 

PRINT (u,fn)iolist 

WRITE (u,fn)iolist 

PRINT (u,*)iolist 

WRITE (u,*)iolist 

PUNCH (u,fn) 

WRITE (u,fn) 

PUNCH (u,fn)iolist 

WRITE (u,fn)iolist 

PUNCH (u,*)iolist 

WRITE (u,*)iolist 


HOLLERITH CONSTANTS IN LIST-DIRECTED OUTPUT 


Unlike FORTRAN 4, FORTRAN 5 does not accept 
Hollerith constants in the output list of a list-directed 
output statement. In FORTRAN 4, the Hollerith constant 
is displayed in integer form. The Conversion Aid converts 
such Hollerith constants to character constants so that 
each constant is printed in character form. For example: 

PRINT *, 4HTEST 
is converted to: 

PRINT *, 'TEST' 
and the line: 

PRINT *, "TEST" 
is converted to: 

PRINT *, 'TEST 1 

INPUT/OUTPUT LISTS AND 
FORMAT STATEMENTS 

The changes for FORTRAN 5 include eliminating 
redundant parentheses and requiring commas with edit 
descriptors; FORTRAN 5 also requires minor changes in 
edit descriptors. 
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REDUNDANT PARENTHESES IN 
INPUT/OUTPUT LISTS 

FORTRAN 4 allows items in an input or output list to be 
surrounded with redundant pairs of parentheses* The 
redundant parentheses can result in ambiguous 
statements* Consider the statement: 

PRINT *, (2.31,8*) 

According to the syntax, the iolist could consist of either 
a single complex constant or two real constants. 
FORTRAN 4 assumes that a list of exactly two teal 
constants surrounded by at least one pair of parentheses 
indicates a complex constant. To avoid any ambiguity, 
FORTRAN 5 prohibits redundant parentheses in input and 
output lists* 

The Conversion Aid removes redundant parentheses in 
input/output lists* For example, the statements: 

COMPLEX C 

PRINT *,<1„2.),(U.2,2.3),3.4) 

PRINT *,(1.1,2*,(2,3)) 

PRINT * (2.7*(C+(2*8,10.5))) 

are converted to the statements: 

COMPLEX C 

PRINT *,(l.,2.),(l.2,2,3),3.4 
PRINT M-1,2.,2,3 
PRINT *,2.7*(C+(2.8,10.5)) 


FORMAT STATEMENTS 

FORMAT conversions include mostly minor changes to 
edit descriptors X, T, and delimited Hollerith constants. 


Omitted Commas in FORMAT Statements 

FORTRAN 4 permits the commas used to separate list 
items in a FORMAT statement to be omitted in the 
following cases: after an X edit descriptor; after an nH 
edit descriptor; and after a delimited Hollerith edit 
descriptor* FORTRAN 5 requires that commas separate 
all list items in a FORMAT statement. 

The Conversion Aid replaces any missing commas in a 
FORMAT statement* The rule for detecting a FORMAT 
statement is: any statement with a statement label 
followed by the seven characters FORMATC is a FORMAT 
statement. Thus, the statement: 

10 FORMAT(X5H)=A(N) 

will be interpreted as a FORMAT statement, even though 
its syntax is the same as for an arithmetic assignment 
statement where FORMAT and A are the names of arrays 
and X5H is the name of a variable. 


X Edit Descriptor 

FORTRAN 4 allows the n preceding the X edit descriptor 
to be any positive, negative, or zero integer, or to be 
omitted entirely. FORTRAN 5 requires that the n be a 
positive integer* If the n is zero, the Conversion Aid 
deletes the descriptor. If the n is negative, the 


Conversion Aid changes it to the new form TLm, where m 
is the absolute value of n. In all cases, the converted form 
functions exactLy like the old one. For example: 

50 FORMAT(X,12,OX,A10,-5X,A3) 
is converted to: 

50 FORMAT(1X,I2,A10,TL5,A3) 


E Edit Descriptor 

The FORTRAN 4 floating-point descriptor E can be 
specified as Ew.dDe with exponent length e. FORTRAN 5 
allows only the conversion specification Ew.dEe, but not 
Ew.dDe. The Conversion Aid changes each Ew.dDe 
specification into an Ew.dEe specification by changing the 
D to an E. 


Delimited Hollerith Constants 

FORTRAN 4 permits character strings delimited by a pair 
of * or " symbols as alternative forms of the H 
descriptor. FORTRAN 5 character strings are delimited 
by apostrophes. An apostrophe within the character strinq 
is represented by two consecutive apostrophes. The 
Conversion Aid changes each constant delimited by * or 
M . For example: 

10 FORMAT(1X, "AC m 'E'\ *FH*, "J’K") 
is converted to: 

10 FORMA TUX, f AC”E', TH\ LTK') 

T Edit Descriptor 

FORTRAN 4 allows the FORMAT specification Tn to be 
used with n=0; TO is equivalent to Tl. FORTRAN 5 
requires that the n in a Tn specification be an integer 
greater than zero. The Conversion Aid changes the 
specification TO to Tl. If Tn is used in variable formats, 
the occurrence of TO is not detected nor is it deleted. 


Floating-Point Descriptor 

In FORTRAN 4, the d field in the floating-point 
descriptors Fw.d, Ew.d, Gw.d, and Dw.d, is not required, 
where: 

d specifies the number of digits to the right of the 
decimal point within the floating-point field. 

In FORTRAN 5, the d field is required in the 
floating-point descriptors. For example; 

F8 

is required to be 
F8.0 

If the d field is missing, the Conversion Aid appends an 
explicit field of zero. For example: 

F7 

becomes 

F7.Q 
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PROGRAM UNITS, PROCEDURES, 

AND OVERLAYS 

FORTRAN 5 syntax requirements affect the FORTRAN 4 
statements SUBROUTINE (with or without RETURNS), 
RETURN, CALL, and ENTRY; the sequence for 
OVERLAY and IDENT has also been changed. 


The statement CALL with RETURNS and SUBROUTINE 
with RETURNS cannot be used in FORTRAN 5. 
FORTRAN 5 instead requires an asterisk for each 
statement label dummy argument in the argument list. 
ENTRY can have a dummy argument. Any reference to 
an entry point must include an argument list which agrees 
in order, number, and type with the dummy list in the 
ENTRY statement. 


ALTERNATE RETURN SUBROUTINE LINKAGE 

The syntax, but not the function, of the alternate return 
subroutine linkage differs between FORTRAN 4 and 
FORTRAN 5. 


SUBROUTINE Statement 

FORTRAN 4 has dummy alternate return statement labels 
specified in a separate RETURNS list. FORTRAN 5 has 
no dummy statement labels. Instead, the programmer 
includes an asterisk in the dummy argument list for each 
location in the main program where control could return. 
The Conversion Aid converts each SUBROUTINE 
statement from the FORTRAN 4 format to the 
FORTRAN 5 format. For example; 

SUBROUTINE AX(A,B), RETURNS(M,N) 

is converted to: 

SUBROUTINE AX(A,B,*,*) 

and; 

SUBROUTINE AY, RETURNS (P,Q) 
is converted to: 

SUBROUTINE AY(*,*) 


RETURN Statement 

For FORTRAN 4, the programmer specifies the dummy 
alternative return statement label in the RETURN 
statement. For FORTRAN 5, the programmer specifies a 
position, rather than a dummy statement label. This 
position corresponds to the actual argument list of the 
CALL statement which gives the alternate return 
statement label. Thus, RETURN 3 specifies that control 
is to return to the third alternate return statement label 
specified in the CALL statement. For example: 

RETURN M 

where M is the third dummy statement label argument in 
the SUBROUTINE statement, is converted to: 

RETURN 3 


CALL Statement 

The actual alternate return statement labels for 
FORTRAN 4 are specified in a separate RETURNS list. 
For FORTRAN 5, the actual alternate return statement 
labels are specified in the same list as the other actual 
arguments and are preceded by an asterisk. The 
Conversion Aid converts each CALL statement from the 
FORTRAN 4 format to the FORTRAN 5 format. For 
example: 

CALL AX(R,S), RETURNS{5,10) 
is converted to: 

CALL AX(R,S,*5,*10) 

and: 

CALL AY, RETURNS( 15,20) 
is converted to: 

CALL AY(*15,*20) 

DUMMY ARGUMENTS IN ENTRY STATEMENT 

No dummy arguments can appear in FORTRAN 4 
statements with ENTRY; instead, the dummy arguments 
appearing with the FUNCTION statement or 
SUBROUTINE statement apply to any ENTRY statement 
within that subprogram. For FORTRAN 3, however, any 
dummy arguments that apply to an ENTRY point must be 
specified in that ENTRY statement. 

FORTRAN 4 does not recognize a dummy argument list in 
an ENTRY statement; for each ENTRY statement, the list 
is the one specified in the subprogram header statement 
of that program unit. FORTRAN 5 permits a dummy 
argument list in an ENTRY statement and requires that a 
reference to an entry point use an actual argument list 
which agrees in order, number, and type with the dummy 
argument list in the ENTRY statement. Because 
FORTRAN 4 entry point references use an actual 
argument list when parameters are to be passed, a 
suitable dummy argument list must be added to each 
ENTRY statement. 

The Conversion Aid copies the dummy argument list in the 
subprogram header statement to each ENTRY statement 
in that program unit. For example: 

SUBROUTINE SUB(X,Y,Z) 


ENTRY A 


ENTRY B 
is converted to: 

SUBROUTINE SUB(X,Y,Z) 


ENTRY A(X,Y,Z) 


ENTRY B(X,Y,Z) 
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OVERLAY DIRECTIVES WITH 
COMPASS ROUTINES 

FORTRAN 4 allows the OVERLAY directive and 
COMPASS IDENT statement, but the order is reversed and 
the syntax for the OVERLAY directive is changed in 
FORTRAN 5, For example: 

OVERLAY (fname,i,i) 

IDENT name 

is converted to: 

IDENT name 

LCC OVERLAY (fname^j) 


SUPPLIED PROCEDURES 

FORTRAN 5 has 22 new intrinsic functions; several are 
for character handling. If the intrinsic function name 
conflicts with a user-selected name, the conversion 
program generates an EXTERNAL statement. Other 
differences in FORTRAN 5 include the random number 
function, end-pf-file processing, and extended memory 
(ECS/LCM) data transfer. 


INTRINSIC FUNCTIONS 

FORTRAN 5 provides some new intrinsic functions that 
are not available in FORTRAN 4 as either intrinsic 
functions or basic external functions. The names of these 
new functions might conflict with user-selected names. 
If the name of any of the new intrinsic functions appears 
in a context that FORTRAN 5 could interpret as an 
intrinsic function, and if that name does not appear in an 
EXTERNAL statement, the Conversion Aid generates an 
EXTERNAL statement containing that name. 

The names of the new intrinsic functions are: 


ANINT 

TCHAR 

LLT 

BOOL 

IDNINT 

LOG 

CHAR 

INDEX 

LOGIO 

DDIM 

LEN 

MAX 

DINT 

LGE 

MIN 

DNINT 

LGT 

NEQV 

DPROD 

EOV 

LLE 

NINT 


RANDOM NUMBER GENERATOR 

The intrinsic function RANF, random number generator, is 
referenced in FORTRAN 4 as RANF(n). A FORTRAN 5 
call to the intrinsic function RANF is RANFO* The 
Conversion Aid deletes the dummy argument. 


END-OF-FlUc PROCESSING 

When a program compiled by FORTRAN 4 encounters an 
end-of-fiie (EOF) during a read, the EOF flag is set. Data 
items retain their current values, and processing continues 


with the next executable statement following the READ 
statement. If the program tries to read from a file when 
the EOF flag is set, the program terminates with an error 
message. The EOF function tests for an end-of-file and 
clears the EOF flag if it is set. 

FORTRAN 5 uses an EOF specifier END-n, where n is the 
statement label to be executed at end-of-fiie. For 
example: 

READC10, IGQ,END~5G0) 


states that at EOF, execution is to continue from 
statement label 500, 


When a FORTRAN 5 program encounters an EOF during a 
read, the EOF flag is set; data items are undefined. The 
program terminates unless the READ statement contains 
an EOF specifier. 


The Conversion Aid adds END=n to every READ 
statement. The END-n specifies the next executable 
statement following the READ statement; if the next 
executable statement does not have a label, the 
Conversion Aid generates one with five digits* 


TRANSFERRING DATA TO AND 
FROM ECS/LCM 

FORTRAN 4 programs can transfer data to extended 
memory (ECS/LCM) by either the WRJTEC or the 
MOVLEV utility; data can be transferred from ECS/LCM 
by either the READEC or the MOVLEV utility. Under 
FORTRAN 5, the WRITEC and READEC utilities are 
eliminated, but data can be transferred to and from 
ECS/LCM by the MOVLEV utility. 


The Conversion Aid changes a call to WRITEC or 
READEC to a call to MOVLEV. The statement CALL 
WRITEC(s,d,n) is converted to CALL MOVLEV(s,d,n); 
statement CALL R£AQEC(s,d,n) is converted to CALL 
MOVLEV(d,s,n). In the argument list, s is a variable or 
array element specifying the starting address of the data 
to be transferred; d is a variable or array element 
specifying the starting address of the receiving location; n 
is the number of words to be transferred. 


DEBUGGING FACILITY 

Directives control the FORTRAN 4 debugging facility. 
FORTRAN 5 can be used with an interactive debugging 
facility and other debugging options can be selected by 
FORTRAN 5 control statement parameters, FORTRAN 5 
interprets all statements with a C$ in columns 1 and 2 as 
compiler control directives. Because FORTRAN 5 does 
not recognize the FORTRAN 4 debugging facility, the C$ 
debug directives would produce errors during FORTRAN 5 
compilation. The Conversion Aid either deletes the $ in 
column2 of these directives to create comments, or 
deletes the entire directive. The programmer selects the 
option with the DO parameter of the F45 control 
statement. 
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LISTING CONTROL DIRECTIVES 

Both FORTRAN A and FORTRAN 5 allow the programmer 
to intersperse directives within the program to control the 
listing. The FORTRAN 5 directives are different in 
format from the FORTRAN A directives. For example: 

C/ LIST, ALL 

is changed to: 

C$ LIST(ALL) 


and the directive: 

C/ LIST,NONE 
is changed to; 

C$ LIST(ALL=0) 

If the C/ that precedes the LIST directive in FORTRAN A 
were left unchanged, FORTRAN 5 would treat C/ as a 
comment rather than a directive. 
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MANUAL CONVERSIONS 


4 


Certain differences between FORTRAN Extended 
Version 4 (FORTRAN 4) and FORTRAN Version 5 
(FORTRAN 5) require manual changes* If the FORTRAN 
Extended Version 4 to FORTRAN Version 5 Conversion 
Aid Program (Conversion Aid) cannot make a required 
change, a message is printed for each statement it cannot 
translate* The Update/Modify listing includes statements 
flagged for manual changes; these statements are deleted 
and reinserted, and the lines are listed as replacement 
lines* These lines can be used as templates to create new 
lines. If the user ignores the manual change message, the 
| FORTRAN 5 source code might be incorrect* In certain 
cases, such as DO statements, the new code might 
compile correctly under FORTRAN 5, but might produce 
different results during execution. 


DO STATEMENTS 

The DO statement establishes a controlled loop. Zero trip 
count and resetting the statement parameters are the two 
major changes affecting the DO loop for FORTRAN 5. 

ZERO TRIP DO LOOPS 

Unlike FORTRAN 4, FORTRAN 5 allows a DO loop to be 
executed zero times. FORTRAN 5 establishes a minimum 
trip count from the control statement; the minimum trip 
count is zero* For the statement: 

DO 20 1= J,K 

if 3 is greater than K and if the trip count is zero, the 
loop is not executed; execution continues after 
statement 20, 

RESETTING DO STATEMENT PARAMETERS 

Under FORTRAN 4 neither the control variable nor the 
indexing parameters of a DO statement should be reset 
within the range or the extended range of the DO loop; 
resetting them causes unpredictable results. Under 
FORTRAN 5, resetting the control variable is prohibited; 
resetting the indexing parameters does not affect the 
number of times the DO is executed, The Conversion Aid 
flags any statement redefining the control variable or 
Indexing parameters in the immediate range of a DO loop, 
but it does not detect any redefining in the extended 
range. 


LIST-DIRECTED INPUT 

A FORTRAN 4 list-directed READ statement reads 
enough data in an input line to supply values for the 
variables that are in the iolist. For example, if the input 
is: 

15,12,10,11,9,8 

then a program with the statement: 

READ*,J,K,L 


would pick up values 15, 12, and 10. On the next 
list-directed READ, the values read would be 11, 9, and 
8. Under FORTRAN 5, a list-directed READ statement 
also reads the data in an input line to supply values for the 
variables in iolist. On the other hand, the next 
list-directed READ would skip to the next input line. In 
the example, the values 11, 9, and 8 would be skipped. 

LIST-DIRECTED OUTPUT 

FORTRAN 4 treats list-directed PRINT statements 
differently from Ust-directed WRITE statements. 

For FORTRAN 4 list-directed PRINT statements, a blank 
is output as the first character (carriage control) of each 
record and as the first character of each line when a long 
record is continued on another line; the delimiting symbol 
" is not included with the character output. For 
list-directed WRITE statements, a blank is output as the 
first character of each record, but not as the first 
character of each line when a long record Is continued on 
additional lines; the delimiting symbol ,f is included with 
the character output. 

FORTRAN 5 treats List-directed PRINT and WRITE 
statements the same. A blank is output as the first 
character of each record, and as the first character of 
each line when a long record is continued on additional 
lines; the delimiting symbols (for Hollerith values) or T 
(for character values) are not included with the character 
output. 

The Conversion Aid does not translate list-directed output 
statements, and does not produce any warning messages. 
The user should verify that the output produced by the 
translated program, after being compiled by FORTRAN 5, 
is satisfactory for the particular application. 

FORTRAN 4 assumes that an integer variable contains 
Hollerith data if the variable has a value greater than 
248,1. The variable is then output with format A1G. 
FORTRAN 5 does not provide this special interpretation. 
The user should check that integer variables in output lists 
do not contain Hollerith data. 

FORMAT STATEMENTS 

Although the Conversion Aid converts most FORMAT 
statements, some conversions are not possible. The user 
must be particularly careful when using edit descriptors 
for double precision. Other FORMAT difficulties can be 
corrected by using variables of type CHARACTER. 

DOUBLE PRECISION ITEMS IN 
INPUT/OUTPUT LISTS 

FORTRAN 4 permits a double precision input/output list 
item to correspond to two edit descriptors in a FORMAT 
statement such as 2A10 or 2020, FORTRAN 5 requires 
each double precision input or output list item to 
correspond to exactly one repeatable edit descriptor; the 
Conversion Aid does not detect the use of two edit 
descriptors to describe one double precision input or 
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output list item. The user must ensure that input and 
output of double precision items follow the FORTRAN 5 
format. For example: 

10 FORMAT(2Al 0,2020) 
should be changed to: 

10 FQRMAT(A2O,O40) 


H INPUT FORMAT SPECIFICATION 

The H specification, under FORTRAN 4, can be used in a 
FORMAT statement to read Hollerith characters into an 
existing H field. FORTRAN 5 prohibits the H 
specification on input, but the user can achieve similar 
results with a variable of type CHARACTER. The 
Conversion Aid flags any misused H edit descriptors. If a 
programmer wanted the input: 

bTHIS IS A VARIABLE HEADING 

to be written as: 

THIS IS A VARIABLE HEADING 

then the FORTRAN 4 statements: 

READ(2,10) 

10 FORMAT (27Hbbbbbbbbbbbbbbbbbbbbbbbbbbb) 
WRITE(6,10) 

would produce the result Cb indicates blank). After the 
read, the FORMAT statement contains the input record. 
Then a subsequent write produces the correct result. To 
work properly under FORTRAN 5, the source program 
would have to be converted to: 

CHARACTER X*27 
READ(2,10)X 
10 FORMAT (A27) 

WR1TE(6,10)X 

After the READ, the character variable X contains the 
input record. 


V DESCRIPTOR AND EQUALS SIGN 

A FORTRAN 4 program can have V descriptors in 
FORMAT statements to vary the conversion specification, 
and can have equals signs to vary the integer value used in 
the conversion. For FORTRAN 5, the programmer must 
use character data; the V descriptor and equals sign are 
prohibited. The Conversion Aid flags any FORMAT 
statement containing the prohibited forms. 


EXECUTION TIME FORMAT SPECIFICATION 

Under FORTRAN 4, variable FORMAT specifications can 
be stored in an array, a simple variable, or an array 
element. FORTRAN 5 allows variable FORMAT 
specifications to be stored in an array or an array 
element, but not in a simple variable. The Conversion Aid 
flags any input or output statement that uses a simple 
variable as a FORMAT specification. 


FUNCTIONS AND SUBROUTINES 

The Conversion Aid flags certain uses of functions and 
subroutines. For example, statement functions and 
intrinsic functions might be flagged because of possible 
type mismatch. Some library subroutines, such as sense 
lights, are no longer available; other subroutines, such as 
TIME and DATE, can only be referenced as functions. The 
IOCHECK function is still valid, but can be replaced with 
parameters in the input statements. 

REFERENCING A STATEMENT FUNCTION 

When executing a reference to a statement function, 
FORTRAN 4 replaces each dummy argument with the 
corresponding actual argument expression. It does not 
check for possible side effects of an external function 
reference in the expression, and does not check whether 
the actual argument has -the same type as the dummy 
argument. FORTRAN 5 requires that each actual 
argument expression be evaluated and converted in type 
before substitution. The Conversion Aid does not check 
statement function references for argument type 
matching or for side effects. 


INTRINSIC FUNCTIONS 

FORTRAN 4 allows any intrinsic function referenced in 
an EXTERNAL statement to be passed as an actual 
argument if it is not referenced in the program unit. For 
example: 

PROGRAM ALPHA{INPUT,OUTPUT) 

EXTERNAL AND 


booL=and(a,b) 

The use of intrinsic function AND is not possible in 
program ALPHA. 

FORTRAN 5 allows an intrinsic function referenced in an 
EXTERNAL statement to be passed as an actual 
argument, except for two classes of functions: those with 
a variable number of arguments and those that cause a 
type conversion. The intrinsic functions which cannot be 
passed as actual arguments under FORTRAN 5 are as 
follows: 


AMAXO 

DMAX1 

MAXI 

AMAX1 

DMIN1 

MIND 

AMINO 

FLOAT 

MINI 

AMIN1 

ID1NT 

OR 

AND 

FIX 

REAL 

CMPLX 

INT 

SNGL 

DBLE 

MAX0 

XOR 


The Conversion Aid flags any statement that uses a name 
of an intrinsic function as an actual argument. The user 
can then change the reference if necessary. 

SENSE LIGHTS 

FORTRAN 5 does not support the sense light subroutines, 
SLITE and SLITET. Logical variables can replace the 
subroutines. 
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TIME AND DATE FUNCTIONS 

FORTRAN 4 permits the operating system routines 
DATE, JDATE, SECOND, TIME, and CLOCK to be 
referenced either as functions or as subroutines. Under 
FORTRAN 4, the functions DATE, SECOND, TIME, and 
CLOCK are of type REAL; the function JDATE is of type 
INTEGER. 


FORTRAN 5 permits these routines to be referenced as 
functions but not as subroutines. The functions DATE, 
0DATE, TIME, and CLOCK are of type CHARACTER; the 
function SECOND is of type REAL. These functions have 
no arguments. The Conversion Aid flags any direct 
reference to these routines; indirect references are not 
detected. 


IOCHEC FUNCTION 

Under FORTRAN 4, whenever an error occurs during a 
read, the parity error flag is set and execution continues 
with the statement following the READ statement. The 
IOCHEC function checks for a parity error, then clears 
the parity flag. 

FORTRAN 5 uses the specifiers IOSTAT and ERR for 
error processing. The format for the I/O status specifier 
is: 

IOSTAT=var 

where the integer var is returned after the read. If var is 
positive, then an error occurred. The format for the error 
specifier is: 

ERR=n 

where n is a statement label; processing continues at 
statement n if an error occurs. 

When an error occurs during a read, FORTRAN 5 checks 
for an I/O status specifier or error specifier in the 
statement; if neither is there, the program terminates. 
The following examples show FORTRAN 5 READ 
statements that handle error detection: 

READUO,IOO ( IOSTAT=IVAR) 


READ(10,100,ERR-50Q) 

RE AD( 10,100,105 TAT-I V AR ,ERR=5 00) 

If an error occurs during a read and the READ statement 
contains IOSTAT, the variable IVAR is set to a positive 
value indicating the error number. Processing continues 
with the statement following READ (if there is no ERR) 
or statement Label 50Q (if there Is ERR-500). If there is 
no IOSTAT, processing continues at statement label 500. 

If a FORTRAN 4 program tests for a parity error with the 
IOCHEC function, the Conversion Aid issues a warning 
message. The user can then add an IOSTAT or ERR 
specifier to the corresponding READ statement. Because 
FORTRAN 5 does not set the parity error flag, the 
IOCHEC function works the same as under FORTRAN 4; 
it clears the parity error flag, and returns a nonzero value 
if an error has occurred. 


NUMERIC CONVERSION OF BiANKS 
IN FORMATTED INPUT 

Embedded blanks in formatted input data items read with 
numeric conversion are treated differently by 
FORTRAN 4 and FORTRAN 5. FORTRAN 4 treats 
blanks embedded in formatted input data as zeros; 
FORTRAN 5 treats them as null characters. The data 
item Ibbl, read under an 14 conversion would be read as 
1001 by FORTRAN 4 and U by FORTRAN 5. 

There are two ways to make FORTRAN 5 behavior the 
same as FORTRAN 4: 

1. Put BZ in the format statements in the source 
program. For example: 

10 FORMAT(BZ,110,F10.5,110) 

2. Add an OPEN statement for the unit prior to the first 
I/O usage of the unit which specifies 
BLANKu’ZERO*. For example: 

OPEN(5, BLANK^ZERO') 

Option 1'cannot be used with variable formats unless the 
variable format is modified* Option 2 cannot be used if 
the unit is used for both formatted and unformatted I/O 
because the OPEN statement defaults to formatted. 
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STANDARD CHARACTER SETS 


A 


Control Data operating systems offer the following 
variations of a basic character set: 

CDC 64-character set 

CDC 63-character set 

ASCII 64-character set 

ASCII 63-character set 


The set in use at a particular installation is specified when 
the operating system is installed. 

I Depending on another installation option, NOS and 
NOS/BE assume an input deck has been punched either in 
026 or in 029 mode (regardless of the character set in 
use). Under NOS/BE, the alternate mode can be specified 
by a 26 or 29 punched in columns 79 and 80 of the job 
statement or any 7/8/9 card. The specified mode remains 
in effect throughout the job unless it is reset by 
specification of the alternate mode on a subsequent 7/8/9 
card. Under NOS, the alternate mode can be specified by 
a 26 or 29 punched in columns 79 and 80 of any 6/7/9 card, 
as described above for a 7/8/9 card. In addition, 026 mode 
can be specified by a card with 5/7/9 multipunched in 
column 1; 029 mode can be specified by a card with 5/7/9 
multipunched in column 1 and a 9 punched in column 2. 

I Under SCOPE 2 the alternate modes are 026, 029, and 
blank coded, check next card. The 026 and 029 modes are 


specified by a 26 or 29 punched in columns 79 and 80 of 
the job statement or any 7/8/9 card. The blank coded, 
check next card mode is specified according to the 
following alternatives: 

If the next card is a free form flag card, the section 
following is free form binary. (See SCOPE 2 
Reference Manual.) 

If the next card has 7/9 punched (only) in column 1, 
the following section is SCOPE 2 binary. (See 
SCOPE 2 Reference Manual.) 

In any other case the section following is coded with 
the last requested conversion mode. 

When the 63-character set is used, the display code 00 
under A or R FORMAT conversion is converted to a space 
(display code 55g) for ENCODE and DECODE as well as 
formatted input/output statements. No conversions occur 
with A or R FORMAT conversion when the 64-character 
set is used. 

Graphic character representation on a terminal or printer 
depends on the installation character set and the terminal 
type. Characters shown as CDC graphic characters in the 
standard character set table are appH^jble to BCD 
terminals; ASCII graphic characters are applicable to 
ASCII-CRT and A5CII-TTY terminals. 

FORTRAN and standard character sets are shown in 
table A-l. 
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TABLE A-l. FORTRAN AND STANDARD CHARACTER SETS 


FORTRAN 

Display 

Code 

(octal) 

| CDC 

| ASCII | 

Graphic 

Hollerith 

Punch 

(026) 

External 

BCD 

Code 

Graphic 

Subset 

Punch 

(029) 

Code 

(octal) 

: (colon) 

oo t 

: (colon) 

8-2 

00 

: (colon) ** 

8-2 

072 

A 

01 

A 

12-1 

61 

A 

12 1 

101 

B 

02 

B 

12-2 

62 

B 

12-2 

102 

C 

03 

C 

12-3 

63 

C 

12-3 

103 

D 

04 

D 

12-4 

64 

D 

124 

104 

E 

06 

E 

12-5 

65 

E 

12-5 

105 

F 

06 

F 

12-6 

66 

F 

12-6 

106 

G 

07 

G 

12-7 

67 

G 

12-7 

107 

H 

10 

H 

12-8 

70 

H 

12-8 

110 

1 

11 

1 

12-9 

71 

1 

12-9 

111 

J 

12 

J 

11-1 

41 

J 

11-1 

112 

K 

13 

K 

11-2 

42 

K 

11-2 

113 

L 

14 

L 

11-3 

43 

L 

11-3 

114 

M 

15 

M 

11-4 

44 

M 

114 

115 

N 

16 

N 

11-5 

45 

N 

11-5 

116 

O 

17 

O 

11-6 

46 

0 

11-6 

117 

P 

20 

P 

11-7 

47 

P 

11-7 

120 

Q 

21 

Q 

11-8 

50 

Q 

113 

121 

R 

22 

R 

11-9 

51 

R 

11-9 

122 

S 

23 

S 

0-2 

22 

S 

0-2 

123 

T 

24 

T 

0-3 

23 

T 

0-3 

124 

U 

25 

U 

04 

24 

U 

04 

125 

V 

26 

V 

0-5 

25 

V 

0-5 

126 

w 

27 

w 

0-6 

26 

w 

0-6 

127 

X 

30 

X 

0-7 

27 

X 

0-7 

130 

y 

31 

Y 

06 

30 

y 

08 

131 

2 

32 

2 

0-9 

31 

z 

09 

132 

0 

33 

0 

0 

12 

0 

0 

060 

t 

34 

1 

1 

01 

1 

1 

061 

2 

35 

2 

2 

02 

2 

2 

062 

3 

36 

3 

3 

03 

3 

3 

063 

4 

37 

4 

4 

04 

4 

4 

064 

5 

40 

5 

5 

05 

5 

5 

065 

6 

41 

6 

6 

06 

6 

6 

066 

7 

42 

7 

7 

07 

7 

7 

067 

8 

43 

8 

8 

10 

8 

8 

070 

9 

44 

9 

9 

11 

9 

9 

071 

+ (plus) 

45 

+ 

12 

60 

+ 

12-8-6 

053 

- (minus) 

46 

- 

11 

40 

- 

11 

055 

* (asterisk) 

47 

* 

11-8-4 

54 

* 

1134 

052 

/ (slash) 

50 

/ 

0-1 

21 

/ 

Ol 

057 

( (left paren) 

51 

( 

08-4 

34 

( 

123-5 

050 

} (right paren) 

52 

) 

12-8-4 

74 

) 

113 5 

051 

$ (currency) 

53 

$ 

11-8-3 

53 

$ 

113-3 

044 

= (equals) 

54 

= 

8-3 

13 

= 

8-6 

075 

blank 

55 

blank 

no punch 

20 

blank 

no punch 

040 

, (comma) 

56 

, (comma) 

08-3 

33 

, (comma) 

0-8-3 

054 

• (decimal point) 

57 

. (period) 

12-8-3 

73 

. (period) 

123-3 

056 


60 

= 

08-6 

36 

# 

8-3 

043 


61 

f 

87 

17 

[ 

123-2 

133 


62 

1 

08-2 

32 

] 

113-2 

135 


63 

% tt 

8-6 

16 

%tt 

084 

045 

11 (quote) 

64 

* 

84 

14 

(quote) 

8-7 

042 


65 

r* 

08-5 

35 

(underline) 

03 5 

137 


66 

V 

11-0 or 11-8-2 tn 

52 

1 

123-7 or 11-0 TTT 

041 

tttt 

67 

A 

08 7 

37 

& 

12 

046 

1 (apostrophe) 

70 

t 

11-8-5 

55 

' (apostrophe) 

8-5 

047 


71 

1 

11-8-6 

56 

? 

03 7 

077 


72 

< 

12-0 or 12-8-2 m 

72 

< 

12-8-4 or 12-0 T 

074 


73 

> 

11-8-7 

57 

> 

033 

076 


74 

< 

8 5 

15 


84 

100 


75 

> 

12 8-5 

75 

\ 

03-2 

134 


76 

—l 

12-8-6 

76 

— (circumflex) 

113-7 

136 


77 

; (semicolon) 

12-8-7 

77 

; (semicolon) 

113-6 

073 


tTwelve zero bits at the end of a 60-bit word in a zero byte record are an end-of-record mark rather than two colons, 
ttln installations using a 63-graphic set, display code 00 has no associated graphic or card code; display code 63 is the colon (8-2 punch). 
The % graphic and related card codes do not exist and translations yield a blank (55g). 
tttThe alternate Hollerith (026) and ASCI! (029) punches are accepted for input only, 
ttttFORTRAM 5 character only. 
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MESSAGES AND DIAGNOSTICS 


B 


The Conversion Aid produces a series of messages and 
diagnostics* Most of the messages are informative. Some 
messages flag potentially troublesome statements; the 
user is not obligated to change the flagged statements, 
but if the changes are not made, the program might 
execute incorrectly. The error messages (diagnostics) 
usually require some user action. 

Table B-l contains the automatic conversion (A type) 
messages. These messages are generated whenever the 
conversion aid adds, deletes, or replaces a statement* 
These messages are informative and require no manual 
action. 

Table B-2 contains the manual change (M type) 
messages* These messages are generated whenever the 
conversion aid encounters a statement that it cannot 
translate properly or a statement that might not compile 
or execute correctly. Often the message is a warning to 
the user; the statement might be correct, but the user 


must decide. Some messages indicate flagged statements 
that must be changed. 

Table B-5 contains the error (E type) messages. These 
messages are generated whenever the conversion aid 
encounters an error such as a syntax error or an invalid 
input file* If the conversion aid generates any manual 
action message, it also generates an error message; this 
error message is not fatal. 

Table B-4 contains messages that are generated when the 
input stream is being scanned by the Conversion Aid. The 
messages inform the user of problems in the input stream* 

Table B-5 contains dayfUe messages. 

Table B-6 contains messages that are generated by the 
Conversion Aid's parser. These messages constitute 
conditions that are catastrophic to the Conversion Aid and 
require that the site analyst be consulted. 


TABLE B-l. AUTOMATIC CONVERSION MESSAGES 


Number 

Message 

Number 

—— i. ... 

Message 

***A01*** 

ADDITIONAL MESSAGES SUPPRESSED 

***425*** 

NEGATIVE OCTAL CONVERTED TO BOOLEAN 
OCTAL 

***404*** 

STATEMENT IGNORED 

***A17*** 

NEGATIVE HOLLERITH CONVERTED TO 

***A05*** 

CALL TO -READEC- OR -WRITEC- CHANGED 

TO -M0VLEV- 


BOOLEAN 



***A18*** 

NEGATED SHIFT CONVERTED TO BOOLEAN 

***A06*** 

HOLLERITH CONSTANT TRUNCATED TO 10 
CHARACTERS 


SHIFT 



***429*** 

IRREGULAR INITIALIZATION IN DATA 

+**fl07**+ 

CONTINUE GENERATED FOR F45 INVENTED 

LABEL 


STATEMENT 



***420*** 

IRREGULAR INITIALIZATION OF DOUBLE 

***A08*** 

CONTINUE GENERATED FOR LABELED END 


PRECISION VARIABLE/ARRAY IN DATA 


STATEMENT 


STATEMENT 

**+409*** 

F45 GENERATED STATEMENT (VARIABLES 

***421*** 

UNSUBCRIPTED ARRAY NAME GIVEN 


REPLACE HOLLERITH LITERAL CONSTANTS) 


SUBSCRIPTS 

***410*** 

LONG HOLLERITH CONSTANT SPLIT INTO 

***422*** 

PARENTHESES INSERTED TO MAINTAIN 


10 CHARACTER PIECES 


ORDER OF SUCCESSIVE EXPONENTIATIONS 

***All*** 

ACTUAL ARGUMENT USED CONFLICTS WITH 

***423*** 

ALTERNATE FORM OF DATA STATEMENT 


FTN5 INTRINSIC FUNCTION NAME 


CONVERTED TO ANSI FORM 

***A12*** 

COMMENT SPECIFIED BY $ CONVERTED TO 

***424*** 

NON-ANSI FORMS OF DATA CONSTANT LIST 


* OR C 


CONVERTED TO ANSI FORM 

***A13*** 

MULTIPLE STATEMENTS PER LINE 

***425*** 

KEYWORD TYPE DELETEO 


CONVERTED TO ONE STATEMENT PER LINE 

***426*** 

LEVEL STATEMENT CONVERTED TO CONTAIN 

***414*** 

GARBAGE IN COLUMNS 1-5 REPLACED WITH 
BLANKS 


COMMON BLOCK NAME 



***427*** 

DUMMY ARGUMENT LIST APPENDED TO 

***425*** 

OCTAL NN B CONVERTED TO 0=NN= 


ENTRY STATEMENT 
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TABLE B-l, AUTOMATIC CONVERSION MESSAGES (Contd) 


Number 

Message 

Number 

Message 

***A28*** 

FTN4 - */-/H/ - DELIMITERS CONVERTED 

***A46*** 

COMPILER LISTING CONTROL DIRECTIVES 


TO APOSTROPHES 


CONVERTED TO NEW FORM 

***A29*** 

COMPLEX EXPRESSIONS IN IF CONVERTED 

TO REAL 

***A47*** 

C$ COMMENT DELETED OR S PORTION 

REMOVED PER F45 CONTROL CARD OPTION 

DD 

***A30*** 

TWO BRANCH ARITHMETIC IF CONVERTED 



TO 3 BRANCH IF 

***A48*** 

END STATEMENT INSERTED 

***A31*** 

ALTERNATE RETURNS IN CALL CONVERTED 

***A49*** 

HOLLERITH IN OUTPUT STATEMENT 


TO NEW SYNTAX 


CONVERTED TO APOSTROPHE DELIMITED 
HOLLERITH 

***A32*** 

ALTERNATE RETURNS IN SUBPROGRAM 

CONVERTED TO NEW SYNTAX 

***A50*** 

ABBREVIATIONS OF OPERATORS EXPANDED 

TO FULL OPERATORS 

***A33*** 

ALTERNATE RETURNS IN RETURN 

CONVERTED TO NEW SYNTAX 

***A51*** 

NUMBERED COMMON BLOCK CONVERTED TO 
LABELED 

***A34*** 

CALL GOTOER INSERTED AFTER COMPUTED 

GOTO TO ENSURE AGAINST FAILURE OF 


ABBREVIATION DOUBLE EXPANDED TO FULL 


GOTO 


KEYWORD 

***A35*** 

LOGICAL IF AND COMPUTED GOTO 

■*"*■*■^53*** 

REDUNDANT FORM OF OUTPUT STATEMENT 


CONVERTED TO IF-THEN-ELSE FORM 


CONVERTED TO ANSI FORM 

***A36*** 

CONTINUED END CONVERTED TO END ON 

+*★^54*** 

EXPONENT LENGTH SPECIFIER D IN E 


ONE LINE 


DESCRIPTOR CONVERTED TO E 

***A37*** 

DIGIT -1- PREFIXED TO X EDIT 

***A55*** 

DUMMY ARGUMENT DELETED 


DESCRIPTOR 

***A56*** 

ELEMENT OF LEVEL NOT IN COMMON NOR 

***A38*** 

SPECIFICATION OX DELETED FROM FORMAT 


AN FP - DELETED 

***A39*** 

SPECIFICATION -NX CONVERTED TO TLN 

***A57*** 

INPUT STATEMENT SYNTAX CONVERTED TO 


SPECIFICATION IN FORMAT 

i 


ANSI FORM 

***A40*** 

: REDUNDANT PARENTHESES IN I/O LIST 

***A58*** 

LEVEL DELETED - ELEMENT IN PREVIOUS 


DELETED 


NEW LEVEL 

LCC AFTER IDENT 

***A41*** 

SPECIFICATION TO CONVERTED TO T1 


OVERLAY BEFORE IDENT CONVERTED TO 

***A42*** 

FTN4 C$ DEBUG FACILITY NO LONGER 

PROVIDED 

***A60*** 

EXTERNAL GENERATED TO AVOID FTN4 

NAME / FTN5 FUNCTION CONFLICT 

***A43*** 

PUNCTUATION PLACED AFTER DATA 

CONVERSION DESCRIPTORS 


TEMPORARY NAME SUBSTITUTED FOR 
OVERSUBSCRIPTED ARRAY 

***A44*** 

LOGICAL 2-BRANCH IF CONVERTED TO 

IF() GOTO 

***A62*** 

ZERO-FILLED TYPE HOLLERITH 

CONSTANTS CONVERTED TO FTN5 FORM 

***A45*** 

BLANK LINE INTERPRETED AS COMMENT IN 

FTN5 

***A63*** 

FLOATING-POINT DESCRIPTOR GIVEN 

FIELD OF ZERO 


0-2 
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TABLE B-Z. MANUAL CHANGE MESSAGES 


Number 

Message 

Signif icarrce 

Action 

***M01*** 

POSSIBLE EXTENDED RANGE DO 

As stated. 

Check range of DO 
statement. 

***M02*** 

DO PARAMETER REDEFINED WITHIN RANGE OF DO 

As stated. 

Make sure number of 
times DO loop is 
executed is not 
affected. 

***M03*** 

FUNCTIONS -SLITE- AND -SLITET- NOT SUPPORTED 

IN FTN5 

As stated. 

Replace function with 
logical variable. 

***MG4*** 

-OATE, JOATE, TIME* CLOCK, SECOND- HAVE NO 
ARGUMENTS IN FTN5 

As stated. 

Rewrite statements 
that depend on argu¬ 
ment. 

***M05*** 

SYNTAX ERROR IN TWO BRANCH ARITHMETIC IF 
STATEMENT 

As stated. 

Correct IF statement. 

***MQ6*** 

SIMPLE VARIABLE USED AS FORMAT SPECIFIER IN 

I/O STATEMENT 

As stated. 

Eliminate simple 
variable. 

***MG7*** 

V OR = DESCRIPTOR USED IN FORMAT STATEMENT. 

CHECK I/O USING THIS FORMAT 

As stated. 

Eliminate V and * 
descriptors. 

***M09*** 

FORMAT CONTAINING HOLLERITH DESCRIPTOR USED 

BY INPUT STATEMENT 

As stated. 

Use character data 
instead. 

***M1G*** 

NEGATIVE HOLLERITH CONSTANT LARGER THAN 50 

CHARS IN DATA STATEMENT 

As stated. 

Rework Hollerith 
constant. 

***Mll*** 

F7N4 INTRINSIC FUNCTION USED AS ACTUAL ARGU¬ 
MENT 

As stated. 

Check function name. 
Some intrinsic 
functions not allowed 
as actual arguments 
in FORTRAN 5. 

***M12*** 

TYPE ECS CONVERTED TO LEVEL 3. CHECK 

CONVERSION 

As stated. 

Check conversion. 

***M13*** 

HOLLERITH PARAMETERS - CHECK DEPENDENCY ON 
TRAILING ZEROS 

As stated. 

Check dependency. 

***M14*** 

TYPE MISMATCH 

As stated. 

Change type. 


IF EXPRESSION NOT TYPED LOGICAL OR NOT 
ARITHMETIC IF 

As stated. 

Check validity of IF 
statement. 

***M16*** 

SECOND PARAMETER OF READEC NOT IN LEVEL OR 

IS NUMERIC VALUE 

As stated. 

Check READEC. 

i 

***M17*** 

READEC/WR1TEC WITHOUT ECS OR LEVEL STATEMENT 
- NOT CONVERTED 

As stated. 

Check statement. 

***M18*** 

CHECK USAGE OF ASF 

| Arithmetic state- 
I ment function is 
| incorrect. Syntax 

1 is incorrect or use 
of dummy arguments 
is not correct for 
FORTRAN 5. 

Check arithmetic 
statement function 
and all references. 
Correct as necessary. 

***Ml9*** 

DUMMY ARGUMENT REFERENCE MUST 8E SIMPLE VARI¬ 
ABLE 

As stated. 

Change dummy argu¬ 
ment to a simple 
variable. 

***M20*** 

NO CONVERSION OF COMPLEX TO REAL - REAL USED 

AS VARIABLE 

As stated. 

Check conversion. 
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TABLE B-2. MANUAL CHANGE MESSAGES (Contd) 


Number 

Message 

Significance 

Action 

***M21*** 

FUNCTION I0CHEC . . . MANUAL INSPECTION 

REQUIRED 

As stated. 

Check IOCHEC func¬ 
tion usage. 

***M22*** 

LIST{C=0) IGNORED DUE TO NEW SOURCE - CHECK 
UPDATE/MODIFY DIRECTIVE CONFLICTS 

As stated. 

Check conversion. 

***M23*** 

MACHINE DEPENDENT CODING IN ABOVE STATEMENT 

As stated. 

Check the machine- 
dependent coding. 

***M24*** 

SUBSCRIPT OF ARRAY EXCEEDS DIMENSION 

As stated. 

Change subscript. 

***M25*** 

PARTIAL LIST DIRECTED READ TREATED DIFFERENT 

BY FTN5 

As stated. 

Check input to list- 
directed READ for 
possible skipping of 
input values. 

***M26*** 

IMPLICIT STATEMENT DELETED 

FTN4 ignores all but 
the first IMPLICIT 
statement. FTN5 ac¬ 
cepts multiple 

IMPLICIT statements. 
All but the first 
IMPLICIT statement 
have been deleted. 

Check the deleted 
IMPLICIT statements. 

TABLE B-3. ERROR MESSAGES 

Number 

Message 

Significance 

Action 

***E01*** 

INPUT NOT COMPILE FILE, UPDATE/MODIFY OUTPUT 
SPECIFIED...NO OUTPUT GENERATED 

Input/output file 
mismatch. 

Check input file. 

***E02*** 

INPUT NOT SEQUENCED AS SPECIFIED ON CONTROL 
CARD...NO CONVERSION DONE 

As stated. 

Check input file. 

***£03*** 

SYNTAX ERROR IN INPUT STREAM 

'One or more FORTRAN 
syntax errors 
detected. 

Correct FORTRAN 
errors in the pro¬ 
gram. 

***EQ4*** 

MANUAL CONVERSION MESSAGES ENCOUNTERED 

As stated. 

See the manual con¬ 
version messages. 

***E05*** 

FATAL ERROR - NO FURTHER UNIQUE 5 DIGIT 

LABELS COULD BE GENERATED 

As stated. 

Rework program to 
eliminate need of 
some labels. 


TABLE B-4. INPUT SCANNING ERROR MESSAGES 


Message 

Significance 

Action 

EXCESS CARDS IN SOURCE STATEMENT 

Too many continuation cards. 

Correct source statement. 

ERROR, SCAN INCOMPLETE 

Syntax error in the source statement. 

Correct source statement. 

STATEMENT LABEL WITH NO STATEMENT 

As stated. 

Correct source statement. 

ABOVE PROGRAM UNIT ALREADY 

PROCESSED BY F45..WILL BE SKIPPED 

The comment C*F45V1P0* was detected 
prior to the first card. 

No action. 
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TABLE B-4. INPUT SCANNING ERROR MESSAGES (Contd) 


Message 

Significance 

Action 

UNRECOGNIZED STATEMENT- 
CHECK FOR JCL IN INPUT STREAM 

As stated. 

Remove JCL from input stream. 

FURTHER JCL WILL GO UNDETECTED- 
INCORRECT OUTPUT MAT RESULT 

Error occurs after 10 occurrences of 
unrecognized statements. 

Remove JCL from input stream. 

ERROR AT LINE nn CARD NO. nnn 

As stated; where nn = line number. 

Check source statement for 

COLUMN kkk SYNTAX ERROR 

nnn = card number, kkk = column number. 

syntax error. 


TABLE B-5. DAYFILE MESSAGES 


Message 

Significance 

Action 

NULL INPUT 

No data in input stream. 

Check input file. 

INPUT TYPE CONFLICTS WITH 

OUTPUT DESIREO 

Most likely to occur with regular 
input and with an Update/Modify 
directive, requested for output. 

Check type of input. 

INPUT TYPE NOT SAME AS SPECIFIED ON CC 

Most likely to occur when 
specifying sequenced input on 
control card (CC) and input is 
not sequenced. 

Check type of input. 

SYNTAX ERRORS IN INPUT 

As stated. 

Check input source statements 
for syntax errors. 

NO. OF MANUAL CHANGES REQUIRED = nn 

A total of nn manual change 
messages were output during a 
Conversion Aid run. 

Analyze output source state¬ 
ments for possible manual 
corrections. 


TABLE B-6. PARSING ERROR MESSAGES 


Message 

Significance 

Action 

PARSE TERMINATED BY QUALIFICATION STACK OVERFLOW 

As stated. 

Consult site analyst. 

PARSE TERMINATED BY NEST STACK OVERFLOW 

As stated. 

Consult site analyst. 

TRANSLATION STRUCTURE OVERFLOW 

As stated. 

Consult site analyst. 
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GLOSSARY 


This glossary does not include terms defined in the ANSI 
standard for FORTRAN, X3.9-1966 (FORTRAN 66) or 
FORTRAN, X3.9-1978 (FORTRAN 77). 

Blank Common Block - 

An unlabeJed common block. No data can be stored 
into a blank common block at load time. The size of 
the block is determined by the largest declaration for 
it. Contrast with Labeled Common Block. 

Call by Name - 

A method of referencing a subprogram in which the 
addresses of the actual arguments are passed 

Call by Value - 

A method af referencing a subprogram in which only 
the values of the actual arguments are passed. 

Common Block - 

An area of memory that can be declared in a 
COMMON statement by more than one relocatable 
program and used for storage of shared data. See 
Blank Common Block and Labeled Common Block. 

End-of-Rle (EOF) - 

A particular kind of boundary on a sequential file, 
recognized by the functions EOF and UNIT, and 
written by the ENDFILE statement. Any of the 
following conditions is recognized as end-of-file. 

End~of-section (for INPUT file only) 

End-of-partition 

Eh d-of-information (EOI) 

W type record with flag bit set and delete bit not set 
Tape mark 
Trailer label 

Embedded zero length level 17 g block 
Entry Point - 

A location within a program unit that can be 
branched to from other program units. Each entry 
point has a unique name. 

External Reference - 

A reference in one program unit to an entry point in 
another program unit. 


File - 

A logically related set of information; the largest 
collection of information that can be addressed by a 
file name. A file starts at beg inning-of-information 
and ends at end-of-information. 

Labeled Common Block - 

A common block Into which data can be stored at 
load time. The first program unit declaring a labeled 
common block determines the amount of memory 
allocated. Contrast with Blank Common Block. 

Logical File Name - 

The name by which a file is identified; consists of one 
to seven letters or digits, the first a letter. Files 
used in FORTRAN input/output statements must be 
defined in the PROGRAM statement, and can have a 
maximum of six letters or digits. 

Program Unit - 

A sequence of FORTRAN statements terminated by 
an END statement. The FORTRAN program units are 
main programs, subroutines, functions, and black data 
subprograms. 

Sequential - 

A file organization in which the location of each 
record is defined Dnly as occurring immediately after 
the preceding record* A file position which specifies 
the next record to be read or written ts defined at all 
times. 

Source Code - 

Code written by the programmer in a language such 
as FORTRAN, and used as input to a compiler. 

Source Listing - 

A compiler-produced listing, in a particular format, 
of the original source program. 

Time^Sharing Mode - 

One of the compilation modes in the FORTRAN 
Extended compiler, indicated by the TS control 
statement option. 

Unit Designator - 

An integer constant or variable with a value 0 
throuc^i 99, or an L format logical file name. In 
input/output statements, the unit designator is linked 
with the actual file name by the PROGRAM 
statement and indicates on which file the operation is 
to be performed. 
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PROGRAM EXAMPLES 


D 


This appendix provides some examples of programs converted with the Conversion Aid, An example showing standard input is 
shown in figure D-l. An example showing sequenced input is shown in figure D-2, An example showing COMPILE file input is 
shown in figure D~3, 
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Figure D-l. Standard Input Example (Sheet 1 of 5) 
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Figure D^l. Standard Input Example (Sheet 2 of 5) 
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Figure D~l. Standard Input Example (Sheet 3 of 5) 
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Figure 0-1, Standard Input Example (Sheet 4 of 5) 








D-6 


60483000 A 
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Figure D-2. Sequenced Input Example (Sheet 2 of 6) 
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Figure D-2* Sequenced Input Example (Sheet 3 of 6) 
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Figure D-2* Sequenced Input Example (Sheet 4 of 6) 
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Figure D-2. Sequenced Input Example (Sheet 3 of 6) 
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Figure 0-2, Sequenced Input Example (Sheet 6 of 6) 
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Figure D-3. COMPILE File Input Example (Sheet 1 of 6) 
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Figure D-3, COMPILE File Input Example (Sheet 2 of 6) 
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Figure D-3, COMPILE File Input Example (Sheet 1 of 6) 
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Figure D-3. COMPILE File Input Example (Sheet 2 of 6) 
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Figure D-3. COMPILE File Input Example (Sheet 5 of 6) 
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Figure D-3. COMPILE File Input Example (Sheet 6 of 6) 
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